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Ö Was? 


Bücher im Zeitalter der Computer? Ist das nicht wie eine 
Armbanduhr in einem antiken Drama! Oder ist es etwa um- 
gekehrt: Der Computer braucht das Buch. 


Jeder, der mit einem Denkzeug arbeiten will (oder muß?) 
und höhere Erwartungen an sich stellt als Knöpfchendrücken 
und Diskettenwechseln, braucht Bücher, in denen er nach- 
schlagen kann. Was man alles über einen Computer, und 
zwar über das jeweils einzelne Gerät, wissen muß, kann 
niemand im Kopf haben. Tabellen, Listen, Befehle, Adressen, 
Wert: endlose Mengen von Zahlen, Zahlen, Zahlen; dezimal, 
dual, hexadezimal und noch einmal. 


Wenn Sie sich (nach langem Hin und Her) endlich auch einen 
Elektronenrechner gekauft haben, dann stehen Sie mit Ihrer 
Neuerwerbung in der Regel ganz allein da. Was die Herstel- 
ler ihren Geräten als Anleitungsbroschüre beilegen, kann 
meist nur mit viel Humor 'Einführung' genannt werden. 


Dieses Buch ist eine Einführung. Was Sie als freier Bürger 
eines freien Landes damit anfangen, das bleibt ganz allein 
Ihnen überlassen, und ich will mich da gar nicht ein- 
mischen. Nur ein paar Vorschläge vielleicht? 


Der einfachste Weg, mit diesem Werk fertig zu werden, ist, 
es auf den Müll zu werfen. Vielleicht fischt es jemand wie- 
der heraus, der mehr damit anzufangen weiß. 


Sie können das Buch natürlich auch ungelesen ins Regal 
stellen. Um einen nachhaltigen Eindruck bei Besuchern zu 
hinterlassen, muß man die Bücher schließlich nicht lesen, 
die man sich meterweise ins Regal stellt. 


Als fortgeschrittener Computer-Mönch werden Sie womöglich 
die abgedruckten Programme abtippen. Es ist ja eine mön- 
chische Tradition, abzuschreiben. Warum immer nur die Bibel? 
Etwa zwanzig Programme erwarten Sie, die kürzeren Bei- 
spiele nicht mitgerechnet. 


Aber geschrieben habe ich dieses Buch eigentlich, damit Sie 
lernen, selbst Spiele zu programmieren. Aber dazu müßten 
Sie das Buch lesen (so richtig Seite für Seite) und die Bei- 
spiele ausprobieren (das geht bekanntlich noch vor studie- 


ren) und die Erklärungen nachvollziehen - Schritt für 
Schritt. 


Und so ist das Buch aufgebaut: 


Im Kapitel 1 werden die grundlegenden BASIC- (falls Sie 
noch nicht wissen, was das nun wieder ist, haben Sie bitte 
noch ein klein wenig Geduld) Befehle wiederholt. Auch wenn 
Sie schon ein wenig programmieren können, sollten Sie diesen 
Abschnitt überfliegen, denn BASIC ist nicht gleich BASIC, 
und es werden auch einige Kommandos vorgestellt, die es in 
dieser Form nur bei ATARI gibt. 


Die vielen Hersteller-Köche haben den BASIC-Brei nämlich 
schon ganz schön verdorben. Das Dutzend Grundbefehle ist 
wohl immer gleich (oder sollte ich vorsichtig sein und sagen 
- ähnlich), aber jedes Gerät ist mit irgendwelchen Besonder- 
heiten ausgestattet, für die ebensolche besonderen Befehle 
kreiert wurden. ATARI ist stark in Farbe und Grafik und 
hat hier der Konkurrenz ein paar Kommandos voraus. 


Im Kapitel 2 geht es dann so richtig ab. Hier erfahren Sie 
über Video-Technik und die verschiedenen Grafik-Betriebsar- 
ten des ATAR| alles, was Sie fürs erste wissen sollten und 
zwischen die Seiten dieses Buches zu pressen war. Alles was 
ich zu sagen habe und vorprogrammiere, läuft auf den alten 
Modellen (600 und 800) genauso gut wie auf den Geräten der 
neuen XL-Serie. Wo es zwischen den beiden Generationen Un- 
terschiede gibt, wird es erwähnt. 


Kapitel 3: So viel Wissen darf nicht ungenutzt dahindämmern. 
Hier kommt Bewegung in die Grafik, und in 


Kapitel 4 spielt sich dann schon einiges ab. Grundsätzliche 
Prinzipien von Computer-Spielen werden erörtert und Programm- 
lösungen dafür vorgeschlagen. Wie kann das Spielfeld aus- 
sehen? Woher nehme ich die Spielfiguren? Und wie mache ich 
ihr Beine? Hilfe, Feinde! Aber wo kommen sie her? Wie die 
Widersacher ins Spiel kommen und wie man der dummen 
Maschine sinnvolle Spielzüge beibringt. Dann widmen wir 
uns einen Moment der Zeit, und auch die Wertung hat ihren 
Wert. Zu guter letzt gehts dann geräuschvoll zu: Haste Töne! 


Ein Unterhaltungsprogramm in Kapitel 5 bietet eine handvoll 
Unterhaltungsprogramme als Vergnügen, das ja bekanntlich 
nach der Arbeit zu kommen hat. Im wesentlichen entspringen 
diese Grafik- und Spiel-Beispiele den Kenntnissen der voran- 
gegangenen Kapitel. Jedes Listing ist ausführlich erklärt, 
und nebenbei werden noch ein paar Tips und Tricks ver- 
raten. 


BASIC ist eine Computer-Sprache. (Können Computer sprechen 
- oder gar verstehen?) Wie eine menschliche Sprache besteht 
BASIC aus einer Menge von Wörtern und einer Grammatik, 
die vorschreibt, wie die Wörter zu setzen sind. 


Die BASIC-Wörter sind Befehle an die Maschine. Wenn ich 
meinem Toaster befehlen will, daß er heizt, drücke ich eine 
Taste. Bei einem elektronischen Rechner ist das nicht anders, 
nur daß er so viele Funktionen besitzt, daß er nicht für 
jede einzelne eine Taste hat. (Obwohl es das gibt. Die klei- 
nen Sinclair-Computer ZX 81 und Spectrum verwenden für 
jeden BASIC-Befehl eine andere Taste der Tatatur.) Und weil 
für die Text- und Zifferneingaben ohnehin eine alpha-nume- 
rische Tastatur (Insider erkannt man daran, daß sie Key- 
board sagen) benötigt wird, lag es nahe, die Befehle in 
Form von Wörtern einer reduzierten Sprache einzugeben. 


Die Computer-Sprache vermittelt zwischen unserer Alltags- 
sprache (damit ist selbstverständlich Englisch bzw. Ameri- 
kanisch gemeint, was sonst) und der Maschinensprache. Heute 
weiß ja Fritzchen schon, daß die künstliche Intelligenz der 
Computer über "0" und "1" nicht hinauskommt, "Aus" und 
"Ein", zwei Zustände eines Schalters, mehr nicht. 


BASIC ist nichts anderes als eine Art Computer-Kindersprache, 
die jeder normale (= Englisch sprechende Mensch) sofort 
versteht. Schon mit ein paar Vokabeln und ein bißchen 
Grammatik lassen sich kleine Programme schreiben. 


Aber wenn man anfängt, BASIC zu verstehen, ist man auch 
schon nicht mehr so richtig damit zufrieden, denn in BASIC 
geschriebenen Programme laufen relativ langsam und nutzen 
die Möglichkeiten, die das Denkzeug bietet, nicht richtig 
aus, weil sich mit dem BASIC-Wortschatz manches nicht sa- 
gen läßt. Trotzdem ist das Anfänger-allzweck-zeichenhafte- 
Änweisungssystem (Beginners All-purpose Symbolic Instruction 
Code) die zur Zeit am weitesten verbreitete Computer-Sprache, 
weil sie so herrlich leicht zu erlernen ist. 


Spätestens wenn Sie BASIC auf dem einen Computer gelernt 
haben und dann einen anderen Typ betasten, merken Sie, 
daß wir in einer pluralistischen Gesellschaft leben. Zwar 


sind die Grundbefehle bei den verschiedenen Fabrikaten so 
ähnlich, daß man sich rasch umgewöhnt. Drumherum jedoch 
sind so viele gerätespezifische Abweichungen, Besonderheiten, 
Beschränkungen und Erweiterungen, daß man praktisch für 
jeden Rechner oder zumindest für jede Marke eine eigene 
Sprache lernen muß. Weils so fein klingt, spricht man von 
BASIC-Dialekten. 


In diesem Buch wird ATARI-BASIC gesprochen. 


1.1 übsch der Reihe nach 


Die Befehle (die Sie noch gar nicht kennen) werden über die 
Tastatur eingetippt. Alles was Sie eintippen, erscheint auf 
dem Bildschirm/Monitor, wenn er eingeschaltet ist. Dem Com- 
puter ist das egal. Der funktioniert auch, wenn Sie es nicht 
sehen. 


Sie brauchen übrigens keine Angst zu haben, durch Herum- 
probieren irgendetwas kaputt zu machen. Das ist völlig un- 
möglich. Schlimmstenfalls stürzt der Rechner ab, das heißt 
er reagiert auf Eingaben nicht mehr. Dann können Sie ihn 
nur aus- und wieder einschalten. 


Sie können so lange Befehle eintippen, bis der ganze Bild- 


schirm voll ist und noch weiter, und es geschieht rein gar 
nichts. Die Maschine ist so einfältig, daß Sie ihr auch noch 
sagen müssen: "So, mein Guter, das ist meine Anweisung, 


also los!" Dafür gibt es die RETURN-Taste (auch Carriage 
Return). Sie gibt dem Computer das Kommando End Of Line, 
Ende der Zeile. 


Tippen Sie jetzt FRE(0) und drücken die RETURN-Taste. So- 
fort verrät ihnen ATARI, wieviel Speicherplat er im Moment 
noch für Sie übrig hat. Er druckt eine Zahl auf den Bild- 
schirm, die Anzahl der freien Bytes. 


Ein Bit (Binary digit) ist die Zähleinheit des Rechners: "0" 
oder "1". Acht Bit werden zu einem Byte zusammengefaßt. 
Der Speicher besteht aus einer Menge von Speicherzellen, die 
je ein Byte fassen können. Diese Speicherplätze sind fort- 
laufend durchnumeriert von O0 bis 65535, bei einem Computer 
mit 64 Kilobyte, denn ein kByte entspricht 1024 Byte. 


Da ein nicht unerheblicher Teil des Speichers benötigt wird, 
um die Funktionen des Rechners zu steuern und noch einmal 
ein schönes Stück abgeht, um unser BASIC-Gestottere in die 
endlosen Reihen von Nullen und Einsen zu übersetzen, die 
allein von der Maschine verdaut werden können, ist der für 
den User (Anwender) verfügbare Speicher um einiges ge- 
ringer. 


Wenn der Wert an den Bildschirm ausgegeben ist, erscheint 
zwei Zeilen darunter READY. Damit sagt Ihnen der Computer: 
"Ich bin fertig. Was nun?" 
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Wenn Sie irgendetwas falsch machen, z.B. einen falschen 
Befehl eintippen oder den Befehl in Kleinbuchstaben schrei- 
ben oder vielleicht auch nur einen Tippfehler machen (das 
Elektronengehirn ist da sehr genau), erleben Sie, woran 
man sich als Programmierer beizeiten gewöhnen muß: ERROR- 


Damit meint der Kasten, daß irgendwas nicht läuft und dann 
geht die Fehlersuche los. Wenn Sie Glück haben, steht noch 
eine Zahl dabei und Sie können im ATARI-Anleitungsbuch 
nachlesen, aus welcher Ecke das Problem weht. 


Probieren Sie einmal: 
GOTO 10 (und RETURN-Taste nicht vergessen). Na? 


Mit ERROR- 12 meint die Rechenmaschine, daß sie eine (Zeile) 
10, wohin sie gehen (GOTO) sollte, nicht gefunden hat. 
Kein Wunder, weil wir noch keine Zeile 10 eingegeben haben. 


Sie können jeden Befehl direkt eingeben. Nach RETURN wird 
er sofort verarbeitet. Sie können auch mehrere Befehle durch 
einen : getrennt eingeben und RETURN. Der Rechner führt 
die Anweisung/en aus und meldet sich READY. Auf diese 
Weise können Sie Ihren Heim-Computer wie einen ganz nor- 
malen Taschenrechner verwenden. Welche Rechenkunststücke 
die Maschine drauf hat, verrät Ihnen das Anleitungsbuch. 


Ein Programm besteht jedoch aus einer Reihe von Anweisun- 
gen, und diese Reihe wird (in BASIC) durchnumeriert. Eine 
BASIC-Zeile beginnt deshalb immer mit einer Zeilennummer, 
dann folgt oder folgen die Anweisung/en, und beendet wird 
die Zeile immer mit der RETURN-Taste (EOL), damit der 
Rechner weiß, das war die Zeile. Er springt dann nämlich 
gleich an den Anfang der nächsten Bildschirmzeile und war- 
tet auf weitere Eingaben. 


Beim ATARI sind (ganzzahlige) Zeilennummern von O0 bis 
32767 zulässig. Aus schmerzhafter Erfahrung machen Profis 
bei den Zeilennummern immer Zehnerschritte. Dann kann man 
später, wenn es nötig werden sollte, noch Zeilen zwischen- 
schieben. Sie können aber die Zeilennummern ganz frei 
wählen. Und gleichgültig in welcher Reihenfolge Sie die 
BASIC-Zeilen eingeben, der Rechner ordnet sie und arbeitet 
sie der Reihe nach ab, beginnend bei der niedrigsten Zei- 
lennummer. 


In einer BASIC-Zeile können mehrere Kommandos gegeben 
werden, man trennt sie einfach mit einem Doppelpunkt (:). 
Fast drei Bildschirmzeilen (106 Zeichen) kann eine BASIC- 
Zeile lang sein. Aber darauf brauchen Sie nicht zu achten. 
Wenn eine BASIC-Zeile voll ist, piepst der Konsolen-Laut- 
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sprecher. Wenn Sie BASIC-Befehle (in erlaubter Weise) ab- 
kürzen oder die Zwischenräume anders schreiben, als es der 
Rechner gerne hat, beeinflußt das die Kapazität der Zeile 
nicht. Diese zulässigen Abweichungen werden von der 
Maschine intern korrigiert. 


Alte Programmierhasen schreiben die Zeilen gerne so voll 
wie nur eben möglich, weil das Programm schneller läuft, 
je weniger Zeilennummern es umfaßt. Dabei muß man aber 
gut aufpassen. Es gibt nämlich Befehle, die sofort zu einer 
anderen BASIC-Zeile hinführen, der Rest der hinter einem 
solchen Befehl in der Zeile steht, wird dann natürlich 
nicht bearbeitet. 


Wahre Stolpersteine gerade für den Anfänger sind die Satz- 
zeichen (,.;:), die so unscheinbar und ähnlich aussehen, 
leicht zu verwechseln und doch so wichtig sind, daß an 
ihnen jedes Programm zerbricht. Ein Computer versteht (wie 
alle dummen Menschen) absolut keinen Spaß. Ein , statt 
einem ; und er tritt in den ERROR- Streik oder tut etwas 
anderes, als man eigentlich wollte. Achten Sie also beson- 
ders auf die Satzzeichen. 


Ähnlich steht es mit der O0 (Null) und O (On!). Für einen 
Elektronenrechner sind das zwei paar Schuhe. Deswegen wird 
die Null zur Verdeutlichung, daß sie aber auch gar nichts 
ist, obendrein noch durchgestrichen ß. Durch die Auflösung 
in kleine Punkte ist das aber bei der Schrift, die ATARI 
auf dem Bildschirm hinterläßt, kaum zu sehen. Und die 
Drucker halten sich auch nicht alle an diese Abmachung. So 
auch der, dem die Programm-Listings in diesem Buch zu 
verdanken sind. Achten Sie also auch besonders darauf, O0 
und O nicht zu verwechseln. 


Probieren Sie: 


Ss20 A=12 


111 TV=M-U 
7 E=F 
214 G=Bx«A 


LIST (und RETURN!) 


1.2 Variablen-Varianten 


Variablen sind Kombinationen aus Buchstaben und Ziffern, 
denen beliebig Werte zugewiesen werden können (A = 17 oder 
ZZ3 = 7,4) und die weiter verarbeitet werden können: A + 
2Z3 (= 24,4). 


Das erste Zeichen einer Variablen muß immer ein Buchstabe 
sein, danach können beliebige alpha-numerische Zeichen 
(aber nur Großbuchstaben) folgen. Eine Variable könnte z. 
B. ATARI800XLBUCH heißen. Wer Spaß daran hat, kann eine 
Variable so lang machen, wie eine ganze BASIC-Zeile (106 
Anschläge). Arbeiten kann man damit freilich nicht. 


Der ATARI kann übrigens alle diese Variablen auch unter- 
scheiden. Andere Geräte erlauben zwar die Eingabe beliebi- 
ger Variablen, unterscheiden aber nur die beiden ersten 
Buchstaben oder so. 


Vorsicht ist auch geboten bei Variablennamen in denen 
BASIC-Wörter vorkommen. Es ist beim ATARI zwar möglich, 
eine Buchstabenkombination als Variable zu verwenden, die 
einem BASIC-Wort entspricht (s.u. LET-Anweisung), es ist 
aber trotzdem nicht zu empfehlen. 


Wenn Sie schreiben: ENDE7B = 113 führt das jedenfalls zu 
nichts als einem ERROR- ENDI7B (Das E wird negativ her- 
vorgehoben, um den Fehler zu kennzeichnen). 


Insgesamt dürfen in einem Programm nicht mehr als 120 ver- 
schiedene Variablen vorkommen. Für mehr ist im Speicher 
kein Platz vorgesehen. Hinzu kommt noch, daß sich der 
Rechner alle Variablen merkt, auch solche, die beim Schrei- 
ben des Programms eingeführt, dann aber wieder gelöscht 
wurden. Auch durch einen Tippfehler kann eine "Variable" 
im Speicher notiert werden. Falls Sie irgendwann einmal ein 
so langes Programm kreieren, daß sie mit der Variablen- 
menge Probleme bekommen, können Sie das (halbfertige) 
Programm (mit LIST) auf Cassette oder Diskette abspeichern, 
den Computer aus- und wieder einschalten (die Variablen- 
tabelle wird gelöscht) und (mit ENTER) das Programm neu 
laden. So werden Sie alle fälschlich notierten Variablen los 
und haben wieder etwas Platz. 


Apropos Speicher: Es ist vernünftig, die Variablen so kurz 
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wie möglich zu halten, weil damit Speicher (die Hauptsorge 
aller Programmierer) gespart wird. 


Der ATARI gibt sich nur mit zwei Tyen ab (Variablentypen 
natürlich). Numerische Variablen enthalten wie der Name 
schon sagt Zahlenwerte; und String-Variablen. String heißt 
Kette. Gemeint ist eine Zeichen- (Character) Kette, also eine 
Reihe von Buchstaben (klein und groß) Ziffern und (Pseudo- 
grafik-) Zeichen, die über die Tastatur (CONTROL-Taste) 
eingegeben werden können. String-Variablen werden mit 
einem $ als letztem Zeichen markiert, also A$ oder BUCH4$. 
Der String selbst wird für den blinden Rechner mit '" mar- 
kKiert: 


BUCH$ = "Spiele Programmieren" 


Ganzzahlvariablen (A%), Variablen mit sechsstelliger Genau- 
igkeit (A!) und solche mit 16-stelliger Genauigkeit (A#) gibt 
es bei manchen Rechnern, die zum Vergnügen von Technikern 
konstruiert wurden, ein Kreativ-Computer kommt ohne sie 
aus. 


Ganzzahlvariablen (INTeger-Variablen), also Zahlen, bei 
denen die Stellen hinter dem Komma (das ist beim Computer 
auf gut amerikanisch ein Punkt, klar!) unterdrückt werden, 
liefert der ATARI auf das Kommando INT: 


INT (4.35) = 4 
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1.2.1 LET it be 


Der wichtigste Befehl, der (fast) nie verwendet wird. Zu- 
mindest beim ATARI. Wieso? 


Eine Variable hat nur einen Wert, wenn ihr ein Wert zuge- 
wiesen wurde. Numerische Variablen sind bis dahin grund- 
sätzlich gleich 0. Eine Variable ist wie ein Schubkasten, in 
dem etwas abgelegt wird, bis man es wieder braucht. Und 
natürlich können sich die Inhalte der diversen Schubkästen 
im Lauf des Programms verändern. 


Wir müssen unserem elektronischen Freund also klarmachen, 
daß wir in der Schublade M den Wert 132 ablegen wollen: 
laß M 132 sein und das heißt auf Englisch: let M be 132. 
Und auf BASIC tippen wir: LET M = 132. 


Wer so dumm war, im Mathe-Unterricht aufzupassen, der muß 
jetzt erst recht auf der Hut sein, denn dieser Befehl ist 
keine Gleichung. Um das zu verdeutlichen, haben die Väter 
von BASIC den LET-Befehl in die Welt gesetzt. Weil aber die 
Zuweisung eines Wertes an eine Variable so verdammt oft 
vorkommt und die Menschen nun einmal faul sind, ist man 
dazu übergegangen, das LET einfach fortzulassen. Dem Com- 
puter ist das ziemlich egal. Ob mit oder ohne LET, er ordnet 
M den Wert 132 zu, basta. 


Wenn Sie aber aus irgendeinem unerklärlichen Grund unbe- 
dingt eine Variable verwenden wollen, es gibt ja die merk- 
würdigsten Leute, die einem BASIC-Befehlswort gleicht oder 
damit beginnt (LETTER7T), denn dürfen Sie auf LET nicht 
verzichten: 


10 LET LET=20 
20 PRINT LET#LET 


Wenn Sie dieses Mini-Programm eintippen und dem Rechner 
Beine machen, indem Sie RUN (und RETURN-Taste) eingeben, 
dann ordnet er brav der Variablen LET den Wert 20 zu, 
multipliziert LET mit LET und druckt (PRINT) das Ergebnis 
(tatsächlich 400) aus. READY. (Falls Sie alles richtig ge- 
macht haben). Weil die (LET-) Zuweisung keine Gleichung 
ist, kann man den nützlichen Schubladen-Variablen aber 
auch solche Anweisungen zumuten (umblättern!): 
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Z=Z+1 


Da fällt nun nicht nur dem Mathe-Primus auf, daß das keine 
Gleichung sein kann. Das Elektronengehirn erhält hier den 
Auftrag, die Schublade Z aufzumachen und den Inhalt von Z 
hineinzutun (der ja schon drin ist) und dann noch 1 dazu- 
zutun. Schublade Z enthält dann den Wert Z+1. 


Läßt man den blechernen Schlaumeier diesen Vorgang wie- 
derholen, bringt er des doch tatsächlich fertig zu zählen!: 


10 Z=Z+1 
20272 
30 GOTO 10 


(nun mal keine Aufregung wegen dem ?, das ist nur die 
Abkürzung von PRINT) In Zeile 10 wird gezählt, in Zeile 20 
gePRINTet, natürlich auf den Bildschirm, und Zeile 30 führt 
nach 10 zurück (GOTO). Wenn Sie dieses Programm RUNnen, 
zählt der Computer, bis er kaputt geht oder der Programm- 
ablauf unterbrochen wird (BREAK-Taste, RESET-Taste, Aus- 
schalten). Ja so ein Computer ist doch noch folgsamer und 
treuer als ein Hündchen, 


Der Rechner meckert auch nicht, wenn er sich den Wert, den 
er in einer Variablen ablegen soll, selbst ausrechnen muß: 


10 LOLY=NUCK+ZIF/ZE 


Was tut Kollege Computer bei dieser Anweisung? Er öffnet 
Schublade ZIP, holt den Inhalt raus und teilt ihn durch 2. 
Das macht er zuerst, weil ihm seine Erbauer eine Rangord- 
nung der Rechenoperationen (Operatoren) in die Speicher 
gebrannt haben. I|Is' ja aus der Mathematik bestens bekannt, 
Punktrechnung vor Strichrechnung und so (nur daß das mit 
den Punkten bei der Punktrechnung beim Computer * / nicht 
so ganz stimmt). 


Als nächstes öffnet er dann die Schublade NUCK und tut 
dann NUCK und ZIP/2 in die Variable LOLY. (Das Ergebnis 
ist natürlich 0, wenn wir nicht vorher NUCK und ZIP Werte 
zugewiesen haben.) 





1.2.2 Puppet on a STRING 





Nun besteht unser Leben ja nicht nur aus numerischen Wer- 
ten (obwohl das die Arbeit am Computer erheblich erleichtern 
würde), sondern viel mehr noch aus Sprache, Text. Der 
Rechner kann damit gar nichts anfangen. Für ihn sind das 
nur irgendwelche Zeichen, Ketten von Zeichen (Englisch: 
String), die er mit " von seinen geliebten Zahlenwerten ab- 
grenzt. 


Das Wort "Computer" ist für den Computer also nichts als 
ein STRING aus Zeichen (Characters): C, 0, m, p, u, t, e 
und r. Solche STRINGs können auch in Variablen-Schubladen 
verstaut werden. Um sie entsprechend kenntlich zu machen, 
wird dem Variablen-Namen ein $ angehängt: 


10 DUMM$="ComFuTer" 


Was immer zwischen den '" " an Zeichen geschrieben wird, 
tut der Rechner in die Variable. Ihm ist völlig wurst, was 
das für Zeichen sind, kleine Buchstaben und große, Ziffern 
und Grafikzeichen, Leerzeichen oder gar Satzzeichen. Einzige 
Ausnahme ist das " selbst, denn das behandelt BASIC als 
Kennzeichen für das String-Ende. Wenn Sie einen $ löschen 
wollen, dann schreiben Sie: 


20 DUMMS="" 
Nun aber nicht so hastig! 


Für Zeichenketten muß im ATARI-Speicher zuvor Platz reser- 
viert werden und zwar für jedes Zeichen ein Plätzchen. 
Wenn wir für DUMM$ nur fünf Plätze reservieren, dann kön- 
nen wir 'ComPuTer" nicht darin ablegen, weil er acht Zei- 
chen lang ist 


Das Freihalten von Speicher wird DilMensionieren genannt 
und der BASIC-Befehl lautet, na? Richtig! DIM. Also: 


3 DIM DIMMS$ (8) 


Ein geDIMter $ ist erst einmal leer. In Zeile 10 weisen wir 
ihm allerdings eine Zeichenkette zu. Deswegen können wir 
unseren Freund nun bitten, auf den Bildschirm zu schreiben, 
was er in der Schublade DUMM$ bereithält: | 


20 ? DUMM$ 
18 


Nun DiMensionieren Sie in Zeile 5 DUMM$ auf 7 - ob das 
wohl einen ERROR- gibt? 


Wie jede andere BASIC-Zeile kann auch die Zuordnung eines 
Strings nur knapp drei Bildschirmzeilen lang sein. Da in 
einer solchen Zeile eine Zeilennummer und die $-Variable 
stehen muß, kann eine String-Zuweisung (entgegen anders- 
lautenden Gerüchten) nur maximal 99 Zeichen enthalten. 
Allerdings können mehrere Strings aneinandergehängt werden 
(wenn entsprechend geDIMt wurde). Läßt man einen solchen 
String auf den Bildschirm drucken, können mehr als drei 
Zeilen erscheinen. 


Neben dem Verketten kann man Strings auch teilen, Stücke 
herausnehmen, die Länge abzählen und zwei Strings mitein- 
ander vergleichen: 


A$=-B# 
A$ (B$ 
AS}: R$ 


Ob ein String "größer" oder "kleiner" ist, wird von der 
Reihenfolge des Alphabets bestimmt und zwar erst die Groß- 
buchstaben von A bis Z, dann die Kleinbuchstaben von a 
bis z (ä, ö, ü und ß gehören natürlich nicht in diese Reihe, 
wo kämen wir denn da hin!). Noch "größer" als die Groß- 
buchstaben sind die Ziffern von O bis 9. 


Diese Rangordnung kommt dadurch zustande, daß der Compu- 
ter jedem Zeichen einen Zahlenwert von O bis 255 zuordnet. 
Diese Zuordnung ist normiert und heißt ASCII-Standard 
(American Standard Code for Information Interchange). 


Bei ATARI ist diese Tabelle (wie könnte es anders sein) 
etwas modifiziert und heißt sinnigerweise ATASCII-Code. Eine 
Tabelle mit dem ATARI-Zeichensatz und den zugehörigen 
Codes finden Sie im Anhang. 
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1.2.3 Andere DIMensionen 


Im Gegensatz zu $-Variablen brauchen numerische Variablen 
nicht DiIMensioniert zu werden. Oft ist es jedoch nützlich, 
über eine geordnete Batterie von Variablen zu verfügen. 50 
eine Reihe von Schubkästen heißt ARRAY (= Schlachtordnung) 
und so ein ARRAY muß DlIMensioniert werden: 


10 DIM AR(A) 


reserviert im Speicher Platz für fünf Variablen (fünf? Ja, 
fünf. Die Null wird hier mitgezählt, bei der Dimensionierung 


von String-Variablen nicht. Man gewöhnt sich dran - mit 
der Zeit) nämlich 
AR(0) - AR(1) - AR(2) _ AR(3) - AR(4) 


Praktisch ist das deshalb, weil die Schubladen dieses Array 
von einer anderen Variablen gezogen werden können. Wie das? 


zu Valu+i 

30 AR(V-1)=Vx*V 

4ö GOTO ZO 

Was ist da los? In Zeile 20 taucht die Variable V auf. Sie 
ist erst einmal 0, ihr wird aber gleich 1 hinzugezählt, so 
daß in Schubalde V eine 1 drinliegt. 


In Zeile 30 wird jetzt eine Schublade aus der Reihe AR (die 
wir in Zeile 10 geDIMt haben) ausgesucht und zwar die 
Nummer V-1, das ist zur Zeit (1-1=) 0, also ist die Variable 
AR(0) gemeint. 


In Zeile 40 bitten wir den Rechner höflich, doch zur Zeile 
20 zurückzukehren und weils so schön war, alles noch einmal 
zu machen. Nur - in der Schublade V liegt jetzt eine I drin 
und wenn in Zeile 20 eine 1 hinzugezählt wird, dann ergibt 
das? Und in Zeile 30 wird bei diesem Durchlauf die Schub- 
lade AR(1) mit V*V (2*2) gefüllt. 


Wenn Sie das Programm laufen lassen (mit RUN und RETURN- 
Taste, sie wissen ja), dann gibt es allerdings einen ERROR- 
9 in Zeile 30. Halt! Überlegen Sie einmal selbst, was da 
nicht in Ordnung ist. 


Wenn Sie sehen wollen, was in den Schubladen AR(0) bis 
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AR(4) drin ist, schieben Sie diese Zeile ein: 
3533 ? AR(V-D 


An dem ERROR- 9 ändert das nichts, aber Sie können jetzt 
wenigstens die Quadratzahlen von 1 bis 25 auf dem Monitor 
genießen. 


Na, für alle Fälle will ich die Katze aus dem Sack lassen: 
Wenn das Programm nach dem fünften Durchlauf in Zeile 40 
nach 20 zurückspringt, nimmt V den Wert 6 an. Na und? - 
In 20 wird dann die Variable AR(V-1), und das ist AR(5), 
aufgerufen und die gibt es nicht, weil wir in Zeile 10 AR 
nur auf 4 DlIMensioniert haben. AR(4). Ändern! Sie die 
Zeile 10 in: 


10 DIM AR(S460) 


(mehr macht der gute ATARI nicht mit) und Sie können die 
Quadratzahlen von 1 bis (solange das Programm läuft kön- 
nen Sie ja gemütlich einen Kaffee trinken, das muß ja auch 
mal sein) 29.822.521 über den Bildschirm flimmern sehen. Für 
die 5461 Berechnungen braucht der fleißige Blechkamerad 
schon ein paar Minuten (BASIC-Programme sind eben doch 
sehr langsam!). 


Die Zeile, in der DiIMensioniert wird, steht gewöhnlich am 
Anfang des Programms, denn es muß unbedingt vermieden 
werden, daß diese Zeile zweimal bearbeitet wird. Ändern Sie 
Zeile 40: 


40 GOTO 10 


und nach RUN, zack: ERROR- 9 (DIM-Fehler) - eine DIM- 
ensionierte Variable darf nicht noch einmal geDIMt wer- 
den, 


DIMensionierte Variablen enthalten nicht wie die einfachen 
numerischen automatisch eine 0. Für die zu DIMensionie- 
rende Variable wird (irgendwo) im Speicher Platz gemacht 
und es kann sein, daß da noch alte Werte herumgeistern, 
die dann in der Variablen wieder auftauchen. Dadurch kön- 
nen Fehler auftreten. Man sollte also jede DiIMensionierte 
Variable (jede einzeln) auf 0 setzen. Wie man das mit wenig 
Anstrengung erreicht wird in Abschnitt 1.3.7 verraten. 


Wenn mehrere Variablen DiIMensioniert werden sollen, kann 
das in einer BASIC-Zeile geschehen: 


10 DIM AA(SI,EBR(7),ACZ(120),5$ (1) 


Natürlich können nur so viele Schubladen durch DIM reser- 
viert werden, wie im Computer (Speicher-) Platz ist. Wenn 
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man ihn hier überfordert, 


Mit dem Befehl 


nierten Variablen gelöscht 
zeitig werden alle übrigen, 


auf O gesetzt. 


Neben der einfachen Schubladen-Reihe steht 


kontert er mit ERROR- 17. 


CLR (CLeaR) können alle vorher 
werden. 
nicht 


Aber aufgepaßt! 
DIMensionierten Variablen 


DIMensio- 
Gleich- 


für besondere 


Zwecke auch noch die Schrankwand zur Verfügung, also ein 


ganzes Feld von Schubladen, 
numeriert 


ist. 


das in zwei 


ein- und zweidimensionalen Arrays. 


Die zweiDIMensionale Variante hat die Form F(U,V), 


Richtungen durch- 
Zur besseren Unterscheidung spricht man von 


wobei 


statt F jeder andere Variablennamen stehen kann (nur kein 
$) und an Stelle von U und V können Werte, Variablen oder 


zu berechnende Größen stehen. 
F(0,0) bis F(U,V), 


wobei 


Das Feld F(U,V) reicht von 
in der einen Richtung von F(0,0) 


bis F(U,0), in der anderen von F(0,0) bis F(0,V) gezählt 
wird: 

F(0,0) F(1,0) F(2,0) F(3,0) F(4,0) ar F(U,0) 
F(0,1) F(1,1) F(2,1) F(3,1) F(4,1) ik F(U,1) 
F(0,2) F(1,2) F(2,2) F(3,2) F(4,2) Sn F(U,2) 
F(0,V) F(1,V)  F(2,V)  F(3,V)  F(4,V) .... F(U,V) 
Auch bei den zweidimensionalen Arrays kann man nicht be- 


liebig aus dem Vollen schöpfen. Selbst die künstliche Intel- 
ligenz ist bisweilen beschränkt. Das Produkt aus den beiden 
DIMensionierungs-Werten darf nicht größer sein als die 5461, 
die uns schon beim eindimensionalen Array in die Quere ge- 


kommen sind. (Vergessen Sie nicht die 0 mitzuzählen!) 
DIS(12,15) müssen Sie multiplizieren: 13 mal 16. 


Folgende DiMensionierungen sind z.B. möglich: 


DIM DS112729,1) (Produkt: 5460) 
DIM DSZ (1819,22) (Produkt: 5460) 
DIM D53 (1364,59 (Produkt: 5460) 
DIM DS4 (545,9) (Produkt: 5460) 
DIM DS5(217,24) (Produkt: 5450) 
DIM DS6 (108,49) (Produkt: 5450) 
DIM DS57 (930,59) (Produkt: 5460) 
DIM DS8 (75, 72) (Produkt: 5402) 
Sie können auch DIM DSO(5460,0) schreiben, nur die "0" 
können Sie sich sparen, dann das ist ein eindimensionaler 


Array. 
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1.3 Ein paar Brocken BASIC 


Eine Programmiersprache vermittelt zwischen den mensch- 
lichen Sprachgewohnheiten und dem Horizont der Maschine, 
der mit EIN und AUS ein nahes Ende findet; Spannung oder 
keine Spannung, beschrieben mit den Ziffern I und 0. Man 
spricht von höheren Programmiersprachen, je weiter sie sich 
von diesem Gestammel aus 0en und len entfernen. 


BASIC ist unserer (amerikanischen) Umgangssprache sehr 
nahe und entsprechend weit von der binären (= zweihaften, 
nämlich 0/1) Form entfernt. Der erste Arbeitsgang des Rech- 
ners besteht darin, den BASIC-Befehl in Maschinen"sprache"" 
(welch ein Wort!) umzuwandeln, also in einen Rattenschwanz 
aus Oen und len. 


Diese Arbeit erledigt der BASIC-Interpreter (Übersetzer). Bei 
den älteren ATARI-Modellen mußte das BASIC-Modul in den 
Cartridge-Schacht eingesetzt werden, bei den Geräten der 
XL-Serie ist der Interbreter in die Innereien des Rechners 
integriert. 


Die Übersetzung aus dem BASIC kostet Kapazität und vor 
allem Zeit, und wenn es auch nur Mikro-Sekunden sind, es 
macht sich bemerkbar. Hinzu kommt, das BASIC manchen 
Umweg nehmen muß, wo die Maschinensprache geradeaus ge- 
hen könnte. Deswegen kann ein Maschinenspracheprogramm 
um ein Vielfaches schneller laufen als das gleiche Programm 
in BASIC, nur - BASIC läßt sich schnell mal lernen ... 


Wenn Sie also mehr aus Ihrem ATARI herausholen wollen, 
dann geht das nur über direkten Speicherzugriff. Darüber 
wird an der einen oder anderen Stelle noch zu sprechen 
sein. ATARI-BASIC hat zwei Befehle (POKE und PEEK), die 
erlauben, im Rahmen eines BASIC-Programmes einzelne Ver- 
änderungen direkt in die Windungen der Schaltkreise zu 
schreiben. Damit läßt sich dem Computer manches Kunststück 
beibringen, daß ihm BASIC nicht erklären kann. 


Jetzt sollen Sie sich aber erst einmal mit den wichtigsten 
Befehlen vertraut machen. 
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1.3.1 PRINTen mit? 


Der PRINT-Befehl veranlaßt den Computer zu einer Ausgabe, 
die normalerweise auf dem Monitor erfolgt. Es kann das Er- 
gebnis einer Berechnung (PRINT 21*16+7) oder der Inhalt 
einer Variablen (PRINT A$ / PRINT V) ausgegeben werden. 
Soll die Ausgabe nicht auf dem Bildschirm sondern an ande- 
rer Stelle erfolgen, z.B. auf einem Drucker (sofern man 
einen hat und selbiger angeschlossen ist), muß der PRINT- 
Befehl entsprechend erweitert werden. 


Wenn die Ausgabe abgeschlossen ist, springt der Cursor 
(Schreibmarke) an den Anfang der nächsten Zeile und die 
Maschine ist für neue Eingaben bereit. 


Nun probieren Sie bitte folgendes: 


10 DIM N$(14) 

z0 N$="Renate Knuefer" 

30 PRINT N$ 

40 GOTO 20 

RUN 

Um dem endlosen Spiel ein Ende zu bereiten, drücken Sie 
die BREAK-Taste (oben rechts). Es erscheint die Meldung 
STOPPED AT LINE ... Tippen Sie jetzt LIST 30 (RETURN), 
dann bekommen Sie Zeile 30 ausgeLISTet, und setzen Sie 
hinter PRINT N$ ein ; - sehen Sie sich an, was Sie nach 
RUN erwartet. 


Ersetzen Sie jetzt das ; durch ein , ! 


Der Beistrich (Komma) läßt den Cursor nach dem Ausdruck 
zum nächsten Tabulator-Stop springen (das kennen Sie doch 
von der Schreibmaschine, oder?) Beim Einschalten sind TAB- 
Stops auf die Spalten 7, 15, 23, 31 und 39 gesetzt. Bringen 
Sie den Cursor in eine beliebige Spalte und löschen Sie einen 
gesetzten TAB-Stop durch gleichzeitiges Drücken der Tasten 
TAB und CONTROL (CTRL) oder setzen Sie einen TABulator- 
Stop durch Tasten TAB und SHIFT. 


Weil der PRINT-Befehl recht oft verwendet wird, kann er 
durch ? ersetzt werden. Ein ?- oder PRINT-Befehl ohne wei- 
tere Anweisung führt zur Ausgabe einer Leerzeile. ?: ?: ? 
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1.3.2 I. wie INPUT 


Nehmen wir einmal an, Sie haben ein wirkliches mathemati- 
sches Problem, das auf Ihnen lastet, so eine richtige Auf- 
gabe für einen Computer. Vielleicht brauchen Sie häufig das 
Quadrat von irgendwelchen Zahlen. Sowas soll es ja geben. 
Natürlich können Sie jedesmal die ganze Rechenaufgabe ein- 
tippen. Wenn die Zahl 9 lautet also: 


? 9x9 (RETURN) 
Promt kommt die Antwort: 


81 
RERDY 


Ja und dann können Sie für die nächste Zahl wieder den 
ganzen Befehl eintippen. Aber da stimmt doch irgendetwas 
nicht? Für diese Stumpfsinnsarbeiten haben wir doch den 
Blechkameraden. Wir müßten ihm nur erklären: Hier, mein 
Freund, das ist die Zahl und nun sag mir dazu das 
Quadrat. Kein Problem? 


100 A=9 
z00 7? AHA 


Prima! und wenns nun nicht 9 sondern 12 sein soll? 


Wir müßten das Programm dazu bringen, in Zeile 100 inne- 
zuhalten und darauf zu warten, bis der Herr und Meister 
(das sind wir natürlich) die zu quadrierende Zahl eingibt. 
Genau das nennt man einen INPUT (Eingabe): 


100 INFUT A 


Wenn Sie das Programm jetzt RUNnen lassen, erscheint auf 
dem Bildschirm ein forderndes ? - man wartet auf Ihren 
INPUT. Jetzt können Sie nach Herzenslust einen Wert eintip- 
pen, z.B. 352,8327 oder so, und es geschieht überhaupt 
nichts. Sie müssen Ihren INPUT nämlich durch betasten von 
RETURN beenden. 


Sofort erscheint der gesuchte Wert: 123904. Und Sie freuen 
sich auch noch? Der Wert stimmt doch überhaupt nicht. Die 
Wurzel aus 123904 ist exakt 352. Wo sind die Stellen hinter 
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dem Komma - ah, ja ... wo sind wir denn hier! Stellen 
hinter dem Komma gibt es nicht. Sie befinden sich auf ame- 
rikanischem Territorium. Also passen Sie sich gefälligst der 
Landessitte an. Statt des Kommas ist ein Dezimalpunkt zu 
verwenden (als kleines Trostpflaster dürfen Sie auch die O0 
vor dem Punkt fortlassen, also .6 statt 0.6, klar?) 


Also nochmal RUN und diesmal: 352.8327. Zack: 124490.9141 
- prima, was! Wenn Sie jetzt noch die Zeile 


300 GOTO 100 


an das Programm anhängen, dann können Sie endlos Werte 
eingeben und bekommen schwupp-di-wupp das Quadrat. Nur 
eines dürfen Sie nicht: etwas anderes als Ziffern eingeben, 
wenn das ? erscheint. 


Natürlich kann der Rechner mit INPUT auch Strings aufneh- 
men. Der Befehl lautet dann entsprechend INPUT BLABLA$. 
Natürlich muß BLABLA$ vorher entsprechend DiIMensioniert 
worden sein: 


100 DIM BLAELAS$ (30) 

110 ? :? "Bitte geben Sie Ihren Namen ein:":? 

120 INFUT EBLABLAS$ 

150 7? 2? "DANKE!" 

140 ? :? "Ihr Name ist " 

150 ? 2? LENCELARBLAS$) 

160 ? 2? "Buchstaben lang" 

170 GOTO 100 

100: DIMensioniert die $-Variable vorsorglich auf 30 Zeichen. 
Sollte irgendwer einen längeren Namen haben oder aus bloßem 
Trotz mehr Zeichen INPUTten, dann gibts natürlich ERROR- 
Probleme. 


110: Die vielen Fragezeichen ergeben Leerzeilen und lockern 
damit das Schriftbild auf. Benutzerfreundlich nennt man das. 


120: Hier erscheint, wenn das Programm abläuft das INPUT- 
? und der Name kann eingegeben werden (RETURN nicht ver- 
gessen). Natürlich können auch Ziffern, Zeichen und Leer- 
stellen eingetippt werden. Die Maschine schluckt die Zeichen- 
kette wie sie ist, ohne darüber nachzudenken. Denken Sie mal! 


130: Leerzeile und eine kleine Freundlichkeit. 
140: s. Kommentar zu Zeile 130. 


150: Ja, was haben wir denn da? Was soll da ausgedruckt 
werden: LEN(BLABLA$)?* 
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160: s. Kommentar zu 130. 


170: Führt das Programm an den Anfang zurück, damit wir 
das Spielchen noch einmal genießen können. 


Also RUN an den Speck! Und: ERROR- 9 AT LINE 100? In 
Abschnitt 1.2.3 nachlesen, am Kopf kratzen und Zeile 170 
ändern in GOTO 110 oder CLR: GOTO 100. 


Nur so zum Spaß sollten Sie jetzt in Zeilen 140 und 150 ein 
;s ans Ende setzen. Mal RUN. Sieht doch besser aus, oder? 
Nur den $ in 160 sollten Sie jetzt noch mit einem Leerzei- 
chen beginnen lassen, um den fehlenden Zwischenraum zu 
korrigieren. (Wenn Sie nicht verstehen, wovon ich rede, 
dann müssen Sie die Beispiele eben doch ausprobieren) 


Mit einem INPUT können auch mehrere numerische Werte 
und/oder Strings aufgenommen werden: 


1000 INPUT A, B$,C$#,D,E 


Der Benutzer muß nur genau wissen, was er in welcher 
Reihenfolge eingeben soll, d.h. Ihr Programm sollte es ihm 
sagen. Wird ein $ erwartet aber eine Zahl eingegeben, dann 
verarbeitet der Rechner die Ziffernfolge als Zeichenkette. 
Wird aber ein numerischer Wert erwartet und der Benutzer 
drückt versehentlich (oder vorsätzlich) eine Buchstaben- 
taste, gibts ERROR- 8 (Input in falsche Variable) und der 
programmierunkundige Benutzer steht ratlos vor einem abge- 
brochenen Programm. 


* der Befehl LEN(X$) zählt die Anzahl von Zeichen in der 
Kette X$. Dabei wird alles mitgezählt, also auch die Leer- 
zeichen = Zwischenräume. Was abgezählt werden soll steht 
in der ( ) hinter LEN, das kann eine $-Variable sein (LEN 
(BLABLA$)) oder ein String selbst (LEN(Zaehl STRING)) (=12) 
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1.3.3 O gott, Otto: GOTO 


GOTO heißt auf gut Deutsch GENACH. Muß ich noch mehr 
erklären? 


Na gut. 


Auf das Kommando GOTO springt das Programm sofort (!) zu 
der hinter GOTO angegebenen Zeilennummer und arbeitet 
diese ab. Also erstens: Es muß eine solche Zeile geben, 
sonst springt das arme Programm ins Leere und revanchiert 
sich mit einem ERROR- 12 (Zeile fehlt); und zweitens werden 
Befehle, die womöglich in der gleichen Zeile noch hinter 
GOTO stehen, natürlich nicht ausgeführt, weil das Programm 
abspringt, bevor es dorthin kommt. 


Mit GOTO lassen sich hübsche Spielchen mit dem Computer 
treiben, der ja nicht weiß, wie ihm mitgespielt wird: 


100 ? "ICH LIEBE DICH. "; 
200 GOTO 100 
RUN 


(Ach tut das gut!) 


In Zeile 100 bitte die Leerzeichen hinter dem . nicht ein- 
sparen und auch das ; hat seinen Wert, dort wo es steht. 


Statt eines Zahlenwertes kann hinter GOTO auch eine nume- 
rische Variable (A) oder ein zu berechnender Wert (5+19 / 
B*3) stehen. Etwaige Dezimalstellen eines errechneten GOTO- 
Sprungzieles werden unterdrückt. Hauptsache ist nur, daß 
die jeweils errechnete und angesprungene Zeilennummer vor- 
handen ist. (Muß ich extra erwähnen, daß zu jeder beliebi- 
gen Zeile, vorwärts wie rückwärts, gesprungen werden 
kann?) 


GOTO kann auch als Direkteingabe, also ohne Zeilennummer, 
verwendet werden. GOTO 250 (RETURN) springt in Zeile 250 
und beginnt damit, diese und dann die folgenden abzuarbei- 
ten. Voraussetzung ist natürlich, daß ein Programm im Com- 
puter gespeichert ist, das eine Zeile 250 aufweist und daß 
es möglich ist, die Abarbeitung des Programms in Zeile 250 
zu beginnen, ohne daß ERROR- dazwischenfunkt. 
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Noch mehr GOTO-Spielereien. 


Neben dem großen GOTO-Sprung, beherrscht der ATARI auch 
das Kunststückchen des bedingten Sprunges. Die Zauberformel 
dafür lautet: ON (Bedingung) GOTO (Zeilennummer/n): 


500 ON A=B GOTO 400 


Ist A nicht gleich B wird der Sprung nicht ausgeführt und 
das Programm macht mit der folgenden Zeile weiter. 


Der ON-GOTO-Befehl kann aber auch so aussehen: 
Si0O ON A GOTO 200, Z20, 240, 100, 310, 700 


(hinter GOTO können so viele Zeilennummern folgen, wie die 
BASIC-Zeile verkraftet) 


Die numerische Variable (A) bestimmt, welche Zeilennummer 
für den Sprung ausgewählt wird. Ist A=0, wird der GOTO- 
Befehl übergangen. Hat A einen Wert zwischen 1 und 255 
(Dezimalstellen werden ggf. unterdrückt), werden die aufge- 
reihten Sprungziele hinter GOTO abgezählt. A=3 führt zu ei- 
nem Sprung in die Zeile deren Nummer als dritte hinter 
GOTO steht, in der obigen Beispielzeile ist das 240. Hat A 
einen Wert, der größer ist, als die Anzahl der aufgereihten 
Sprungziele, wird eben nicht gesprungen. 


Ist A kleiner O0 oder größer 255 setzt es eine ERROR-feige. 


Die ON-Bedingung kann auch auch ein zu berechnender Wert 
sein: 


100 ON A=4 GOTO 700 

200 ON AxA GOTO 800 

300 ON A/Z GOTO 300 

400 ON A+G(B GOTO 150 

300 ON Ax&)B+5 GOTO 160 

600 ON AtI-7) GOTO 100, 200, 300, 400 
700 ON R(U,6) GOTO 110,120, 130, 700 


ON kapiert GOTO nächstes Kapitel 
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1.3.4 GOSUBkultur 


Ein weiterer Sprungbefehl, der Folgen hat. GOSUB. Auch 
hier springt das Programm in die angegebene Zeilennummer. 
Den angesprungenen Teil nennt man Unterprogramm, ein in 
sich geschlossener Programmteil, der vom Hauptprogramm nur 
über den GOSUB-Sprung erreicht wird. Das Unterprogramm 
endet mit dem Befehl RETURN (das ist etwas anderes als die 
RETURN-Taste, klar doch) verlassen. Das Programm fährt 
dann in der Zeile fort, die direkt der Zeile folgt, die mit 
GOSUB verlassen wurde: 


10 A=27 

=0 GDSUB Z000 
50 END 

2000 7 A 
zO10 RETURN 
RUN 


10: ordnet der numerischen Variablen A einen Wert zu. 
20: Sprung ins Unterprogramm ab Zeile 2000. 


30: Programmende. Muß extra programmiert werden, um das 
Hauptprogramm vom Unterprogramm zu trennen. Der Rechner 
arbeitet ein Programmzeile nach der nächsten ab, er würde 
also nach Zeile 20 in Zeile 2000 weitermachen, wenn ihm 
hier nicht Einhalt geboten würde. 


2000: Hier beginnt das Unterprogramm. Der Wert von A wird 
ausgedruckt. 


2010: verordnet den Rücksprung in die Zeile hinter GOSUB 
und das ist in diesem Beispiel 30 ENDe. 


Natürlich kann man aus einem Unterprogramm in ein Unter- 
Unterprogramm springen (und so weiter, wenn es Spaß 
macht). Man läuft nur Gefahr, daß man die Programmstruk- 
tur nicht mehr durchschaut und sich in Fehlern verzettelt. 


Noch ein Wort zu RETURN. 


Ein Unterprogramm sollte immer mit RETURN verlassen wer- 
den, weil sich der Rechner irgendwo in den unergründlichen 
Tiefen seiner Schaltkreise die Zeilennummer gemerkt hat, bei 
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der GOSUB angeordnet wurde, um irgendwann dorthin zu- 
rückzuRETURnen. Wenn aber kein RETURN kommt, um die ge- 
speicherte RETURN-Zeile zu erlösen, dann irrt dieser Wert 
durch den Speicher und richtet vor lauter Verärgerung wo- 
möglich Unheil an. 


Wenn es bei irgendeinem wahnsinnigen Programm trotzdem 
einmal nötig sein sollte, mitten aus dem Unterprogramm auf 
Nimmerwiedersehen herauszuspringen, dann sollte der Chip 
mit POP beruhigt werden. Ein solches Unterprogramm könnte 
so aussehen (aber auch anders): 


1000 INFUT WERT 

1010 IF WERTIZO THEN ? "zu gross":FÖR :G0TO 20 
1020 7? "O.KR." 

050 RETURN 


1000: erwartet eine numerische Eingabe, die der Variablen 
WERT zugeordnet wird. 


1010: druckt den String "zu groß" (aber nur, wenn WERT 
größer als 20 ist, und da sind wir doch schon mitten im 
nächsten Kapitel), entschuldigt sich dann mit POP für einen 
überraschenden Abgang und springt nach Zeile 20 (es ist 
vorteilhaft, wenn es im Hauptprogramm eine Zeile 20 gibt) 


1020: Wenn WERT nicht größer als 20 war gibt es weder 
? noch POP noch GOTO und das Programm läuft hier weiter: 
der String '"O.K.'" wird auf den Monitor ge?tet und mit 


1030? gehts RETURN ins Hauptprogramm (und zwar zu der 
Zeile, die der Zeile folgt, in der der Sprung aus dem 
Hauptprogramm in das Unterprogramm mit GOSUB usw.) 


Übrigens: Was GOTO recht, ist GOSUB billig. Sprungziele 
können numerisch, als Variable oder zu berechnende Werte 
verabreicht werden. Auch mit ON steht GOSUB auf Du und Du. 
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1.3.5 Wenn IF dann THEN 


Der Computer trifft eine Entscheidung! Hier offenbart sich 
das intimste Geheimnis der künstlichen Intelligenz (was für 
ein dummes Wort). Allerdings - wenn die Maschine eine Ent- 
scheidung treffen soll, dann muß der Programmierer (mit 
seiner natürlichen Intelligenz) jede Möglichkeit vorhersehen 
und für jede Bedingung (IF) eine Folge (THEN) festsetzen. 


Wenn im Programmablauf ein IF auftritt, überprüft der 
Rechner die dahinter stehende Bedingung. Das IF kann sich 
auf einen String beziehen (IF N$="14'"), auf eine numerische 
Variable (IF N=14) oder auf einen zu berechnenden Wert (IF 
A+t1i4<B. (Und auch auf boolesche Ausdrücke. Fragen Sie 
hierzu Ihren Computer-Fachhändler) 


IF die Bedingung erfüllt ist THEN wird die Anweisung aus- 
geführt, sonst wird sie ignoriert. Die Bedingung kann ein 
Sprungziel sein (THEN 200, GOTO kann hier fortfallen, muß 
aber nicht), auch ein berechnetes (THEN GOTO V+66) aber 
auch jeder andere Befehl ist denkbar (THEN ?"Prima'" / 
THEN A=A+23 / THEN END / THEN GOSUB 20000 usw.) 


Statt einer Bedingung kann auf THEN aber auch ein weiteres 
IF-THEN folgen. So können IF-THEN-Bedingungen verkettet 
werden, bis die BASIC-Zeile aus dem Bildschirm platzt: 


300 IF A=sB THEN IF CD THFEN IF EO0O THEN und so weiter 


Nur an eines sollten Sie immer denken: IF Bedingung erfüllt 
- THEN sofortige Ausführung und IF Bedingung nicht erfüllt 
- THEN sofortiger Übergang zur nächsten BASIC-Zeile. 


Wenn die Bedingung also ein Sprungbefehl (GOTO oder GOSUB) 
ist, können in der BASIC-Zeile dahinter keine weiteren Kom- 
mandos gegeben werden: 


400 IF A=0 THEN 100:? "Abseits" 


Ob die Bedingung zutrifft oder nicht, das Programm gelangt 
nie zu dem PRINT-Befehl. 


500 IF A=0 THEN A=B:? "Fech" 
Aufgepaßt! Wenn die Bedingung nicht zutrifft, wird sofort 
die nächste Zeile bearbeitet und '"PECH" hat Pech gehabt. 
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1.3.6 FOR the NEXT STEP: 
Schleifen 


Sie erinnern sich? In Abschnitt 1.2.3 war ich zu faul, jede 
einzelne indizierte Variable durch eine gesonderte Eingabe 
auf O0 zu setzen (natürlich nur, weil ich wußte, daß es 
auch anders geht). Für solche Routinearbeiten ist die FOR- 
NEXT-Schleife erfunden worden. 


Mit Schleife ist gemeint, daß ein bestimmter Programmteil 
mehrmals durchlaufen wird. Die Schleife beginnt mit FOR. 
Hinter FOR muß ein Schleifenzähler definiert werden, der die 
Durchläufe zählt: 


„O0 FÜR Z=0 TO 20 


Z ist der Schleifenzähler (der kann natürlich auch anders 
heißen). Jede beliebige numerische Variable kann verwendet 
werden, und der Anfangs- und der Endwert für den Schlei- 
fenzähler können als Dezimalwert, als Variable oder als zu 
berechnender Wert eingegeben werden: 


„10 FOR SCH=A TO B#*C 


Der Schleifenzähler in Zeile 500 zählt von 0 bis 20, die 
Schleife, in der beliebig viele BASIC-Zeilen und -Befehle 
stehen können, wird also 2lmal durchlaufen. Das Ende der 
Schleife wird durch NEXT und der Schleifenvariablen markiert: 


SS0 NEXT 2 


Solange die Schleifenvariable nicht den festgelegten Höchst- 
wert erreicht hat, erfolgt bei NEXT der Rücksprung in die 
zugehörige FOR-Zeile. 


700 FOR J=0 TO 5 
710 ALTI=O 
720 NEXT J 


Was geschieht? In Zeile 700 wird J auf O gesetzt, in Zeile 
710 wird A(J), also A(0) mit O gefüllt und in Zeile 720 wird 
nach 700 zurückgesprungen. J bekommt jetzt den Wert 1, in 
710 wird A(1) auf O gesetzt usw. Wenn J den Wert 5 erreicht 
hat, wird in 720 kein Rücksprung ausgelöst, das Programm 
arbeitet die BASIC-Anweisung mit der nächst höheren Zeilen- 
nummer ab. 


33 


Wird nichts anderes programmiert, zählt die Schleifenvariab- 
le bei jedem Durchlauf 1 höher. Diese Schrittweite läßt sich 
jedoch auch bestimmen: 


800 FÜR Q=1: TOD 24 STEH >? 


zählt nur jeden zweiten Wert. STEPs können Dezimalstellen 
haben (STEP 1.33), Variablen sein (STEP F) oder zu be- 
rechnende Werte (STEP W/3). Das schlaue Kerichen kann so- 
gar rückwärts zählen: 


850 FOR D=100 TO zo STEF -10D 
zählt 100, 90, 80, ... bis 20. 


Der Clou ist aber, daß in einer FOR-NEXT-Schleife weitere 
FOR-NEXT-Schleifen liegen können: 


10 DIM F(10, 200 

z0 FOR X=0 TO 10 

30 FOR Y=0 TO 20 

40 F(X,Y})=0 

50 NEXT Y 

60 FOR W=0 TO SOOSNEXT W 

70 NEXT X 

80 ? "Fertig" 

10: DIMensioniert die Variable F auf (10,20). Um nun alle 
Einzelvariablen des Arrays auf O0 zu setzen, bedienen wir 
uns einer verschachtelten FOR-NEXT-Schleife. 


20: eröffnet die Schleife der Zählvariablen X. 
30: eröffnet die Schleife der Zählvariablen Y 


40: beim ersten Durchlauf haben X und Y den Wert 0, 
F(0,0) wird also auch O gesetzt. 


50: hier signalisiert NEXT Y den Rücksprung nach Zeile 30, 
wo der nächste Wert für Y genommen wird. X ist noch immer 
0. In diesem Durchlauf wird also F(0,1) auf O gesetzt. Erst 
beim 21. Durchlauf, F(0,20)=0 gibt NEXT Y den Weg frei. 


60: auch so etwas ist möglich, eine leere Schleife. W wird 
von O bis 500 gezählt, dann erst gibt NEXT W grünes Licht. 


70: hier ist das Ende der X-Schleife und die ist noch lange 
nicht abgearbeitet. Also zurück nach 20, X bekommt den 
Wert 1 und dann kommt wieder die Y-Schleife an die Reihe. 
Bis die X-Schleife vollkommen abgearbeitet ist (11 Durchläu- 
fe) wird die Y-Schleife Ilmal abgearbeitet. Auf diese Weise 
werden alle Einzelvariablen F(X,Y) auf O0 gesetzt. 


(Irgendwelche Fragen zu Zeile 80?) 
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1.4 Ab hier geht’s bunt zu 


So, das wäre geschafft. 


Die bislang behandelten BASIC-Befehle sind bei allen Heim- 
Computern recht ähnlich. Unterschiede gibt es hauptsächlich 
bei den Abkürzungen für die Befehle oder beim Zeilenformat. 
Einfachere Geräte lassen z.B. nur einen Befehl pro BASIC- 
Zeile zu. 


Mit dieser handvoll Wörtern können Sie schon eine ganze 
Menge ausrichten, wie wir noch sehen werden. Alle Befehle, 
der ATARI kennt knapp 80, die noch hinzukommen, werden 
entweder sehr selten gebraucht, beziehen sich auf Zusatzge- 
räte ("Peripherie"!), wie Diskettenstation, Drucker und so 
oder sind wirklich erste Sahne und eigentlich schon kein 
BASIC mehr (PEEK, POKE, USR usw.) 


In diesem Kapitel gibt es ein paar Befehle zu bestaunen, 
die den ATARI von allen Geräten dieser Preisklasse abhe- 
ben. Das sind Befehle für Grafik und Farbe. Einem Unter- 
nehmen entsprungen, das mit Telespielen weltweit großen Er- 
folg hat, wurde dem ATARI-Computer einiges in die Schalt- 
pläne geschrieben, was das Auge erfreut. 


Wer Kreatives im Programmier-Schilde führt, dem wird es mit 
diesem Hausfreund besonders leicht gemacht. 
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1.4.8 GRAPHICS-GR.affiti 


Wenn Sie Ihren ATARI-Computer einschalten (haben Sie 
eigentlich einen Computer, oder lesen Sie nur so?). Also 
wenn Sie ihn einschalten können, dann ist die Grafik- 
betriebsart 0 eingestellt, mit dem Text auf den Bildschirm 
gebracht wird, 40 Spalten, 24 Zeilen und in langweilig 
schönem Hellblau. 


Wenn es um die Darstellung von Grafik und Text geht, dann 
ist der ATARI ein rechter Wunderknabe. Mit dem Befehl 
GRAPHICS, sinnvollerweise GR. abzukürzen, lassen sich zwölf 
verschiedene Darstellungsarten (GR.O bis GR.11) abrufen. 
Für diese Bildfülle ist ein spezieller Chip verantwortlich, 
der sich unter dem Gehäuse des ATARI versteckt und ANTIC 
gerufen wird. ANTIC ist klug und eigentlich versteht er 
nicht nur zwölf sondern sogar sechzehn Anweisungen. Und 
tatsächlich lassen sich bei den ATARI-XL-Modellen auch die 
Befehle GR.12 bis GR.15 erteilen. 


ANTIC ist immer noch der alte, aber das ATARI-BASIC ist 
entsprechend erweitert worden. Bei der Gelegenheit sind lei- 
der auch ein paar weitere Änderungen angebracht worden. 
So ist bei den älteren Geräten COLOR durch CO. abzukürzen, 
bei den neueren nur durch C. Da müssen Sie etwas aufpassen. 


Im Verlauf eines Programms können beliebig viele und ver- 
schiedene GR.-Befehle stehen. Ein GRAPHICS-Befehl löscht 
jedoch als erstes den Bildschirm. Es ist also nicht möglich 
(in BASIC) verschiedene Grafikmodi auch einem Bildschirm 
zu mischen. Daß das doch geht, sieht man bei vielen Fix- 
und-Fertig-Computer-Spielen, aber um das zu programmieren, 
muß eine Display-List erstellt werden und vieles über Video- 
Technik und die Computer-Innereien gewußt werden, und das 
ist ein Thema für ein extra Buch. 


Um das Mischen von Grafik und Text trotzdem ein wenig zu 
ermöglichen, kann in die reinen Grafikbetriebsarten am 
unteren Rand des Bildschirms ein Textfenster eingeblendet 
werden. 


Bei Programmabbruch (ERROR-), Programmende, BREAK-Taste 
oder RESET-Taste wird auf GR.O zurückgeschaltet. 
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1.4.2 MulticOLOR 


Wenn Sie einen Grafikmodus auserkoren haben, wird Ihnen 
eine Farbauswahl frei Bildschirm mitgeliefert. Doch damit 
müssen Sie sich nicht bescheiden. Ihr ATARI'Computer ver- 
fügt über einen Farbreichtum, der zum Schwärmen verleitet. 
Allerdings lassen sich in den meisten Betriebsarten nur zwei 
oder vier dieser vielen schönen Farbtöne gleichzeitig dar- 
stellen. Nur in den höheren GRAPHICS (9 bis 11) geht es 
bunter zu. Aber damit wird auch beengend viel Speicher- 
platz verbaucht, und wenn Sie nicht ein 64 kByte-Modell 
Ihr Eigen nennen, dann haben Sie schnell mit ERROR- 2 zu 
tun (Speicher voll) 


Die Auswahl der Farbtöne erledigt der Setz-Farbe-Befehl 
(SETCOLOR), der freundlicherweise SE. abgekürzt werden 
darf. Der SETCOLOR-Befehl hat die Form: 


SETCOLOR r,f,h 


r ist eine Kennzahl von O0 bis 5 für die fünf verschiedenen 
Farbtöne, die mit diesem Befehl definiert werden können. f 
bestimmt den Farbwert (0 bis 15) und h die Helligkeitsstufe 
von O0 (dunkel) bis 15 (hell), dabei sind aber nur die ge- 
raden Werte, also acht Stufen zulässig. Nur GR.9 (s. 2.2.9) 
läßt alle 16 Schattierungen zu. 


Mit dem SETCOLOR-Befehl werden die abrufbaren Farbtöne 
ausgewählt. Es ist aber möglich, im Verlauf des Programms 
die Farbtöne neu zu bestimmen. Wenn Sie keine Farbwerte 
definieren, bleiben die Standardwerte (s. Tabelle unten) 
erhalten. 


Insgesamt sind also 256 Farbtöne aufrufbar. Grundsätzlich 
stehen aber nur 128 Farbtöne zur Verfügung (Helligkeit nur 
gerader Wert), wenn mehrere Farbtöne definiert werden kön- 
nen. In GR.9 kann nur ein Farbwert aufgerufen werden, 
dafür stehen dann aber sechzehn Helligkeitsstufen zur Aus- 
wahl. 


Der SETCOLOR-Befehl löst im Rechner folgendes aus: Der Wert 
f für die Farbe wird mit 16 multipliziert und der Wert h 
für die Helligkeit addiert. Der so errechnete Farbwert wird 
in das entsprechende Farbregister geschrieben. 
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Ein Farbregister ist eine Speicherzelle im Gehirn der 
Maschine, die nur dafür reserviert ist, Farbwerte aufzuneh- 
men und entsprechende Schaltungen auszulösen. SE.O bis 4 
bezieht sich auf die Register 708 bis 712. 


Die Umrechnung des (BASIC-) Befehls SETCOLOR kostet Zeit 
und belegt relativ viel Speicher. Da in diesem Buch noch 
viel mit Grafik und Farbe gearbeitet wird, sollten Sie sich 
gleich daran gewöhnen, die Farbwerte direkt in die ent- 
sprechenden Register zu schreiben. 


Für den direkten Speicherzugriff gibt es die Befehle POKE 
und PEEK. POKE r,n bringt den Wert n in die Adresse r. 
Mit PEEK(r) kann der Inhalt der Adresse r gelesen und z.B. 
mit PRINT ausgegeben werden. Schreiben Sie also statt: 


SE. 0,2,8 (Orange) POKE 708,40 (2*16+8) 
SE. 1,12,10 (Hellgrün) POKE 709,202 (12*16+10) 
SE. 2,9,4 (Mittelblau) POKE 710,148 (9*16+4) 
SE. 3,4,6 (Rotviolett) POKE 711,70 (4*16+6) 
SE. 4,0,0 (Schwarz) POKE 712,0 (0*16+0) 


(dies sind die vorgegebenen Standard-Farbwerte) 


Die so definierten Farbtöne werden mit dem COLOR-Befehl 
aufgerufen. Eine Kennzahl von 0 bis 4 hinter COLOR bezieht 
sich jeweils auf eine mit SE. (oder POKE) definierte Farbe. 
Aber um es den Computer-Freunden nicht gar zu leicht zu 
machen, gehören je nach GR.-Betriebsart ein anderes COLOR 
und SE. zusammen (ja das übt den Geist). 


Nach so viel Studiereifer sollten wir uns gemeinsam zu einem 
schönen Farberlebnis zurücklehnen und einen kurzen Blick 
auf die ATARI-Palette werfen: 


10 GRAFHICS 19 

0 FOR C=0 TOD 255 STEF 2 
30 POKE 712,C 

30 NEXT C 

RUN 


O.K., das war ein sehr kurzer Blick. So schnell kann eben 
selbst ein Heim-Computer sein. Schieben wir eine Pause ein: 


4Qd FOR Z=O0 TO ZOQ:NEXT Z 
RUN 


Na? Wenn Sie jetzt so richtig neugierig auf Farben sind, 
dann schnell umblättern - 
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1.4.3 Farbenrausch 


128 Farbtöne sind eine ganze Menge. Für die bescheidenen 
Ansprüche eines wenig geübten Auges kann man da schon 
fast von bunt sprechen. Das menschliche Auge ist zwar in 
der Lage, allein so knappe 50.000 Gelbtöne zu unterscheiden, 
aber wir wollen ja keine Ansprüche stellen. 


Allerdings ist die Farbe Gelb ein besonderes ATARI-Problem. 
Schöne klare Gelbtöne sind in der 128-Farben-Palette nicht 
enthalten. 


Auf der folgenden Seite finden Sie eine Tabelle mit Beschrei- 
bungen zu den Farbtönen. Unsere Sprache ist recht unbe- 
holfen, wenn es um Farben geht. Aber die Tabelle gibt 
Ihnen einen ersten Anhaltspunkt. Die Farbwirkung hängt 
auch ganz kräftig von der Einstellung Ihres Fernsehers oder 
Monitors ab. Drehen Sie mal an den Knöpfchen für Kontrast 
und Farbtönung. 


Wollen Sie sich die Farbtöne einmal auf dem Bildschirm an- 
sehen? Dann tippen Sie doch dieses kleine Programm ein. 
Nach RUN können Sie durch Drücken der Taste I den Farb- 
wert und durch Taste Q@ den Helligkeitswert der Farbe auf 
dem Bildschirm verändern. Im Textfenster erscheinen der 
Farb- und der Helligkeitswert: 


190 GRAFHICS 3 

200 OPEN #1,4,0, "K:" 

=10 GET #1,T 

=20 IF T=43 THEN CO=Co+l:IF CO)15 THEN CO=O 
=60 IF T=81 THEN Hö=HÖO+Z:IF HO)14 THEN Ho=l 
400 SO=CO#16+HO:FOKE 712,50 

4ao0 ? "FARBE ":C0:" / HELL "5HO;" / FOKE "550 
450 CLOSE #1:60T0 200 


Wenn Sie die Wirkung von vier verschiedenen Farben auf 
dem Bildschirm betrachten und die Farbtöne dabei verändern 
wollen, dann möchte ich Ihnen das Programm Farbenschlüssel 
im Kapitel 5 dieses hervorragenden Buches ans Herz legen. 
Wenn Sie gewählt haben, liefert Ihnen das Programm die 
Werte, die in die Farbregister gePOKEt werden müssen. 
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1.4.4  Zeichensprache 


Die Kommunikation mit der Maschine erfolgt über Zeichen, 
Buchstaben und Ziffern. Da der Rechner nun einmal nicht 
mehr als EIN und AUS versteht, läßt man ihn auch alle Zei- 
chen aus diesem reichen Schatz von Ausdrucksmöglichkeiten 
zusammensetzen. Da trifft es sich gut, daß Bruder Bildschirm 
auch nicht mehr kann: Licht an, Licht aus. Stark sind die 
Jungs ja nur in der Menge. 


Im normalen Textmodus (GRAPHICS O) ist der Bildschirm in 
960 Schreibpositionen (40 Spalten, 24 Zeilen) aufgeteilt. Jede 
dieser Schreibpositionen ist acht Bildschirmzeilen hoch und 
acht Bildpunkte breit. Jedes Zeichen kann also nur aus 
8 mal 8 Punkten zusammengesetzt werden. Für ästhetisch 
wenig anspruchsvolle Techniker ist das mehr als reichlich. 


Alle alpha-numerischen Zeichen und noch ein paar grafische 
Elemente (Pseudo-, Block- oder Semigrafik geheißen), sind 
Pünktchen für Pünktchen festgelegt und schlummern in Zah- 
lenwerte umgewandelt im mystischen Inneren des Elektronen- 
gehirns, von wo sie bei Bedarf, z.B. wenn Sie auf der 
Tastatur herumtippen, um ein BASIC-Programm zustande zu 
bringen, abgerufen werden. Wenn Sie Lust haben, sich diese 
Punktmuster der Zeichen vergrößert anzusehen, dann empfehle 
ich Ihnen das Programm Bit-Muster in Kapitel 5. 


Die Zeichen des Zeichensatzes sind übrigens alle kleiner als 
das 8 mal 8 Feld der Schreibposition. Sie können das gut 
sehen, wenn Sie den Cursor über ein Zeichen setzen, denn 
der füllt die Schreibposition völlig aus. 


Wer's kann, kann auch neue Zeichen definieren (z.B. so'n 
Quark wie ä, ö, ü oder gar ß). BASIC reicht dafür aber 
hinten und vorne nicht aus. 


Die Pseudografik ist die einfachste Möglichkeit Zeichen und 
grafische Elemente auf einem Bildschirm zu mischen. Es gibt 
Striche, Winkel, Diagonalen und die Spielkartenfarben Pik, 
Herz, Karo, Kreuz (amerikanische Reihenfolge). 


Diese Pseudografik-Zeichen bilden zusammen mit den übrigen 
Zeichen den ATARI-Zeichensatz. Jedes Zeichen hat eine Code- 
Zahl zwischen 0 und 255, den ATASCII-Code (vgl. 1.2.2). 
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Statt ein bestimmtes Zeichen über die Tastatur einzutippen, 
kann man es auch über seinen ATASCII-Code aufrufen. Das 
A hat den ATASCII-Wert 65. Der Befehl PRINT "A! bewirkt 
das selbe wie der Befehel PRINT CHR$(65). Der Wert 65 wird 
durch CHR$ in das entsprechende ATASCII-Zeichen umgewan- 
delt. 


Warum ich das hier so ausgiebig erkläre? Ich möchte Ihnen 
gleich ein kleines Programm in Pseudografik vorstellen, 
komme da aber in Bedrängnis, denn die Drucker verfügen 
zwar alle über den standardisierten ASCII-Zeichensatz, nicht 
aber über die Semigrafik-Zeichen. Deshalb finden Sie in 
Zeile 30 den Befehl CHR$. Hier nun das Programm. Ein klei- 
ner Heimatgruß an unsere bayerischen Leser: 


10 FOKE 710, 98:F0OKE 82,0 
20 FOR I=0 TO 478 

50 2? CHR$S(8) sCHR& (136) 5 
40 NEXT I 

„oO GOTO 50 


10: ein Farbwert wird gePOKEt und - ach lassen Sie mir 
noch ein paar kleine Geheimnisse für die restlichen Kapitel 
des Buches. 


20: Na und das kennen Sie ja nun schon. Wie die Zahl 478 
zustande kommt, erkläre ich Ihnen in Zeile 


30: Die beiden CHR$s rufen zwei Pseudografik-Zeichen auf. 
Sie können die Zeichen aber auch als String schreiben. Da- 
zu müssen Sie folgendes eintippen: ? '" Taste CONTROL und 
H gleichzeitig, dann die ATARI-Taste (bei den alten Geräten 
war das ATARI-Zeichen auf dieser Taste, das nennt man 
Produktimage, bei den neueren Geräten ist ein diagonal ge- 
teiltes Rechteck, halb hell, halb dunkel darauf. Nach dem 
Drücken dieser Taste werden alle Zeichen invers, also nega- 
tiv ausgegeben; wird durch erneutes Drücken rückgängig 
gemacht.) und Tasten CONTROL und H, ATARI- (INVERS-) 
Taste '" und das ; nicht vergessen. Der zu druckende String 
zwischen den " '" ist also zwei Zeichen lang. Der Bildschirm 
hat 40*24 Schreibstellen = 960. Da bei jedem Durchlauf zwei 
Zeichen gedruckt werden, brauchen wir 480 (0 bis 479) 
Durchläufe, bis die Mattscheibe voll ist. Um für den Cursor 
Platz zu lassen, begnügen wir uns mit 478. Ändern Sie den 
Schleifenzähler auf 479 und sehen Sie selbst. 


40: die NEXT-Markierung der Schleife | 


50: hält das Programm in dieser Zeile fest, damit der Rech- 
ner nicht die Arbeit niederlegt, sich mit READY meldet und 
damit unser schönes Bayern-Bild befleckt. 
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1.4.5 POS.itionen 


Mit dem ?-Befehl werden die Zeichen eines Strings oder die 
Werte numerischer Variablen an den Bildschirm ausgegeben. 
Die Ausgabe beginnt oben links in der Ecke und erfolgt 
fortlaufend wie beim Schreiben auch. Da es (in Amerika) 
TV-Geräte gibt, die mit dem Bild knausern, ist in der 
Grundeinstellung die Spalte 2 als linker Rand eingestellt. 
(Mit POKE 82,n können Sie den linken, mit POKE 83,m den 
rechten Rand verändern.) 


Ist die Ausgabe auf den Bildschirm gePRINTet, springt der 
Cursor sofort an den Anfang der nächsten Zeile. Es sei 
denn, wir befehlen ihm mit ; stehenzubleiben oder aber mit 
‚ zum nächsten TAB-Stop zu springen. Um die Silbentrennung 
schert sich das Elektronengehirn natrülich nicht. Ist eine 
Zeile voll, gehts in der nächsten weiter. Basta. 


Soll ein Text nicht am linken Rand beginnen, kann man den 
String mit entsprechend vielen Leerzeichen beginnen lassen: 
" Platz". 


Es gibt aber auch die Möglichkeit, eine ganz bestimmte 
Position des Bildschirms anzusprechen und ein Zeichen hin- 
einzuschreiben. Dazu ist der Bildschirm horizontal, also in 
X-Richtung in 40 Spalten (0 bis 39) und vertikal also in 
Y-Richtung in 24 Zeilen (0 bis 23) aufgeteilt. Auf diese 
Weise kann mit zwei Koordinatenwerten jede einzelne Stelle 
der Mattscheibe erreicht werden. 


Das Kommando dafür lautet POSITION n,m. POSITION darf mit 
POS. abgekürzt werden, n und m können numerische Werte 
(POS. 4,12), Variablen (POS. N,M) oder zu berechnende 
Werte (POS. X*3,Z+Y) sein. Ein POS.-Befehl: 


20 FOSITION X,Y 

wird aber erst wirksam, wenn ein Ausgabebefehl erfolgt: 
Bo 2. HM" 

Wenn wir X und Y jetzt noch mit Werten ausstatten: 

10 X=19:Y=11 


können wir das Programm laufen lassen: RUN 
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1 111 
012345678901234567890 






VUERHE 

el II III 

UENERNRERENENENENNHENNENENE 

2 II TITEL ET TTTT TEILT TT 

2 I I II III TTS ITETETTT HENHERNEEENEEREEEEREN 


NNEBEN 
22 Da IE I I DR DR DR DR DR DR RR RR DR DR DR DR DR DR DR ER DR DR ER ER ER EEE ER EEE ER ER IB 
7A U DE DE DR DR DE DR DR DR DR DR DR DR RE RR RR RR DR DR ER ER DR DR DR DR RR ER ER U HR A ER HR I 


Natürlich können Sie in diesem Fall statt der Variablen 
auch gleich die Werte einsetzen: 


40 FOSITION 19, 11:? "MM" 


Eine POS.itionierung mit unzulässigen Werten allein führt 
noch nicht zu einer Fehlermeldung: 


100 FOSITION 19,25 (und RETURN-Taste) 


wenn Sie das Programm aber RUNnen, erscheint nichts als: 


ERROR- 141 


auf der Mattscheibe (Cursorposition unzulässig), denn eine 
Zeile 25 kann der arme Rechner einfach nicht finden. 


Und wozu ist POS. nun gut? Zum Beispiel, wenn Sie einen 
Zähler auf den Bildschirm bringen wollen, der an einer be- 
stimmten Stelle steht, vielleicht in der Mitte der Mattscheibe 
und als Anzeige mit wechselnden Ziffern zählt (die Zeit, 
Punkte in einem Spiel oder was weiß ich); 

Lö FÜR I=0 TO 9 

z=0 FOSITION 13,11 

so? I 


4O NEXT I 
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RUN und zack! Das geht wohl etwas zu schnell und der Cur- 
sor macht sich auch nicht so gut. Also erstmal der Cursor 
unterdrückt: 


5 POKE 752,1 
(POKE 752,0 macht ihn wieder sichtbar) und dann noch: 
60 GOTO 10 


damit wir länger etwas von dem Spaß haben. Jetzt müssen 
wir den Arbeitseifer des Rechners noch ein wenig dämpfen, 
denn so sind die Ziffern ja gar nicht zu erkennen. Und wie 
macht man das (nicht nur mit Beamten und lästigen Mitar- 
beitern?), wir geben ihm etwas zu tun: 


45 FOR Z=0 TOD 100 NEXT Z 
RUN 


Ah, ja, so ist es schön. Aber ein Zähler hat eigentlich ein 
paar Stellen mehr, oder? Was, kein Problem? Ja dann ändern 
Sie mal Zeile: 


10 FOR I=6 TD 1000 


und sehen sich selbst an, was dabei herauskommt. Nein, 
wenn die einzelnen Stellen des Zählers immer schön an der 
gleichen Stelle bleiben sollen, dann müssen wir uns schon 
etwas mehr Mühe geben: 


5 FOKE 752,1 

10 FOR I=0 TO 93 

20 POSITION 17,11:? 1 

50 FOR J=0 TO 3 

40 POSITION 18, 11:2? J 

50 FOR K=0 TO 9 

60 POSITION 19, 11:?” K 
70 FOR L=0 TO 93 

80 FOSITION 20, 11:7? L 

30 FOR M=0 TO 93 

100 POSITION 21,112? M 
110 NEXT 
20 NEXT 
150 NEXT 
140 NEXT 
150 NEXT 
160 GOTO 10 


Das ist vom Aufbau her das gleiche Programm wie der ein- 
stellige Zähler, nur daß wir für jede Stelle dieses Zählers 
eine FOR-NEXT-Schleife haben, also für fünf Zählstellen fünf 
Schleifen: eine Schleife in einer Schleife in einer Schleife in 


- u7272% 
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einer Schleife in einer Schleife. Die innerste Schleife zählt 
die Einer. Wenn Sie von O bis 9 durchgelaufen ist, wird die 
nächst größere Schleife (für die Zehner) angesprungen und 
dann wird wieder die innerste Schleife völlig abgearbeitet 
USW. 


Wenn die Zahl 99999 auf dem Bildschirm erscheint, sind alle 
fünf Schleifen abgearbeitet und das Programm kommt endlich 
nach Zeile 160, wo es wieder nach 10 zurückgeschickt wird 
(mit einem Computer kann man das ja machen) und die Zäh- 
lerei wieder mit 00000 beginnt. 


Der besondere Hobby-Tip: 


wie macht sich ein Computer-Besitzer bei seiner Familie be- 
liebt? Erweitern Sie das Zähler-Programm auf, sagen wir 30 
Stellen (eine schöne Fingerübung) und schreiben Sie in der 
letzten Zeile statt eines Rücksprunges: 


310 ? "Fertig! Ihr koennt yetrt wieder Fernsenen!" 


(Wenn Ihre Familie keinen Spaß versteht, können Sie auch 
einen Wettlauf veranstalten. Starten Sie das Programm, wenn 
Sie ins Bett gehen, und schauen Sie gleich nach dem Auf- 
stehen nach, wer schneller war.) 
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1.4.6 Komm, PLOT 
auf den Bildschirm 


Was dem String das POS. ist dem Grafikpunkt das PLOT. 


Der Befehl POS. ist nur in GR.DO wirksam. Auch wenn eine 
Grafikart mit Textfenster gewählt wurde, kann zwar dorthin 
ge?tet werden, aber der POS.-Befehl zieht nicht. 


In den Textbetriebsarten GRAPHICS 1, 2, 12 und 13 kann 
mit POS. eine BildschirmPOSition zwar angesteuert werden, 
aber der PRINT-Befehl muß so erweitert werden, daß das 
Betriebssystem erkennen kann, wohin: gePRINTet werden soll. 
Um in diesen Betriebsarten ins Grafikfenster zu PRINTen, 
muß ein Datenkanal zum Grafikfenster (was immer das auch 
sein mag) angesprochen werden. Der Befehl sieht dann so 
aus: 


10 GRAFHICS 1:POSITION 4,16:? #6, "TEXT" 
(mehr dazu in den Abschnitten 2.2.1 und 2.2.2) 


Wärend der PRINT-Befehl Strings, also definierte Zeichen 
aus dem ATARI-Zeichensatz in die Schreibstellen setzt, wer- 
den mit PLOT die Bildschirmpositionen bestimmt, in die 
Grafikpunkte gedruckt werden sollen. Die Form des Grafik- 
punktes ist abhängig von der Auflösung der gewählten Be- 
triebsart, aber ein Grafikpunkt füllt eine solche Schreib- 
position vollständig aus. Die Farben für die Grafikpunkte 
werden mit SETCOLOR (oder POKE) definiert und mit COLOR 
aufgerufen: 


10 GRAFHICS Z:POKE (beliebige Farbwerte einsetzen) 
20 COLOR 1:FLOT 0,0 

50 COLOR =&>PLOT 29, 1°PLDT 1,1 

RUN 


Wenn Sie brav waren und wirklich GR.3 programmiert haben, 
dann sehen Sie jetzt ein Quadrat in der von Ihnen gewähl- 
ten Farbe 1 und darunter ein Rechteck in Farbe 2. Wenn Sie 
aber das Textfenster ausgeschaltet haben (GR.3+16), dann 
sehen Sie jetzt gar nichts, denn wenn ein Programm abge- 
arbeitet ist, meldet sich der Rechner mit READY. Das muß er 
irgendwohin schreiben. Wenn Sie ihm dafür nicht einmal das 
kleine Textfenster belassen haben, dann knipst er eben GR.O 
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nur um sein blödes READY loszuwerden. Um ihm das auszu- 
treiben, nageln wir ihn in einer Zeile fest: 


au GOTO 40 


Die mit COLOR (Abkürzung CO., XL-Reihe C.) eingeschaltete 
Farbe wird so lange gePLOTtet, bis mit dem nächsten COLOR 
die Farbe gewechselt wird. 


Wenn nun als nächstes ein Balken gezogen werden soll, 
dann können sie natürlich jeden einzelnen Punkt des Balkens 
PLOTten: 


339 COLOR 3:5FL0T 0,2:FLOT 1, 2:PLOT die sFLOT 11,2 
Ich lasse da lieber eine FOR-NEXT-Schleife für mich arbeiten: 
55 COLOR 3:FOR G=9 TO 11:FL0T 6, ZIiNEXT 6 


Aber der gute ATARI verwöhnt uns mit einem noch viel kom- 
fortableren Befehl und der heißt: ZIEHLEINE (natürlich auf 
Englisch: DRAWTO, was man DR. abkürzen darf). Und des- 
halb sollten wir lieber eintasten: 


33 COLOR 3:FLOT 0, 2:DRAUTO 11,2 


Der DRAWTO-Befehl bewirkt, daß eine Linie von dem zuletzt 
gePLOTteten Punkt zu dem hinter DR. definierten Punkt ge- 
zogen wird. Das Angenehme dabei ist, daß beliebige zwei 
Punkte auf diese Weise verbunden werden können, also auch 
schräg liegende Geraden (um es mal ganz mathematisch aus- 
zudrücken). Bitten Sie Ihren Computer doch einmal um 
folgendes: 


10 GRAPHICS S35:FOKE (beliebige Farbwerte) 
20 COLOR 1:PLOT 0,0:DRAWTO 2,10 

50 COLOR 2:FLOT 2, 0:DRAWTO 6,10 

40 COLOR 3:FLOT 4,0:DRAWTO 10, 10 

RUN 


Zugegeben, die Diagonalen sehen etwas geknickt aus, aber 
die Auflösung ist ja auch sehr grob. Je höher der GRAPHICS- 
gang wird, desto gerader werden die Geraden. 


Und eine zweite Wohltat hält DR. bereit. Es können beliebig 
viele DR.s aneinandergehängt werden, so daß eine durchge- 
hende Linie entsteht, die an bestimmten Stellen die Richtung 
wechselt: 


10 GRAPHICS 3 

20 COLOR 2 

30 PLOT 19, 0:2DRAWTO 28, 9:DRAWTO 13,18 
40 DRAWTO 10,93 

RUN 
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Na is' doch klar. Der Rechner tut genau das, was wir ihm 
programmieren. Wenn also ein Quadrat erscheinen soll, dann 
muß auch noch von der vierten Ecke zur ersten eine Linie 
gezogen werden: 


50 DRAWTO 19,0 


So, mit der Basis-BASIC-Paukerei sind wir nun durch. Wurde 
aber auch Zeit, was. Zum Abschluß und als ersten Vorge- 
schmack auf kommende Freuden, noch eine kleine Erweiterung 
des obigen Progrämmchens: 


10 GRAFHICS 3 

20 FOR C=1 TO 3:COLOR C 

30 PLOT 19+0,0:DRAWTO Z8+C0, 9:DRAWTO 19+C0,18 
40 DRAWTO 10+C,3:DRAWTO 19+0,0 

50 NEXT C 


Ach ist das schön! 
10: bestimmt den GR.afikgang 
20: eröffnet die Schleife mit der Variablen C Wert I 


30: Beim ersten Durchlauf ist C also 1 und mit COLOR C 
wird Farbe 1 aufgerufen. Zu allen X-Koordinaten von PLOT 
und DRAWTO wird C also 1 addiert, das entspricht einer 
Verschiebung um einen Grafikpunkt/Schreibstelle nach rechts. 
Beim nächsten Durchlauf wird das gleiche Quadrat gePLOTtet, 
nur mit Farbe 2 und um zwei Stellen nach rechts verschoben 
(C=2). Beim dritten Druchlauf geschieht entsprechendes mit 
Farbe 3. 


50: dann ist die Schleife abgearbeitet. 


Beachten Sie bitte, 

daß bei der oberen und unteren Ecke des Quadrates die 
Farbe 3 je einen Grafikpunkt der Farbe 1 überPLOTtet. Ein 
gePLOTteter Grafikpunkt bleibt so lange stehen, bis er 
überPLOTtet wird, mit einer anderen Farbe. Und wenn das 
die Farbe des Hintergrundes ist, dann sieht das so aus, als 
ob der Punkt verschwinde. In Wirklichkeit ist das Grafik- 
fenster lückenlos mit Grafikpunkten ausgefüllt. Wir nehmen 
nur die durchgehende Flächer als Hintergrund wahr und den 
Hintergrund stellen wir uns als leeren Raum vor. Kleinere 
Flächen deutet unser Gehirn-Computer dann als "Gegenstände" 
(Vordergrund). Wahrnehmung ist also nur die Annahme, daß 
etwas wahr sei und kein Wahrheitsbeweis. Deswegen läßt 
sich die Wahrnehmung auch gezielt täuschen. Die "bewegten" 
Bilder des Kinos sind nur ein Beispiel dafür. Auch wir wer- 
den der Wahrnehmung noch einiges vorgaukeln. 
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1.4.7 Fill-Horn 


Es gibt Heim-Computer, die verfügen über einen Befehl, mit 
dessen Hilfe eine definierte Fläche farbig ausgefüllt (FILL) 
werden kann. Der ATARI gehört leider nicht dazu. Es gibt 
aber einen Weg, diesen Effekt zu bewirken. Das ATARI- 
Zauberwort dafür heißt XIO. 


Folgende Schritte sind nötig, um eine Fläche farbig auszu- 
füllen: In die Adresse 765 muß vermittels POKE der Farbwert 
geschrieben werden, mit dem die Fläche gefüllt werden soll. 
Dann müssen die rechte und obere Kante des auszufüllenden 
Vierecks mit PLOT und DRAWTO gezeichnet und schließlich 
muß der unsichtbare Cursor auf die untere linke Ecke der 
Fläche POS.itioniert werden. Dann erst kann das XIO- 
Kommando ergehen: 


100 GRAFHICS 23 

110 POKE 765,2 

120 COLOR 2 

150 PLOT 159, 79 

140 DRAWTO 80,0 

150 DRAWTO 79,0 

160 POSITION 0, 73 

170 XIO 18,#6,0,0, "St" 
180 G0TD 180 


100: schaltet die fein auflösende Grafikbetriebsart 7 ohne 
Textfenster (+16=23) ein. 


110: bestimmt für das Ausfüllen die Farbe (COLOR) 2 
120: schaltet COLOR 2 für PLOT und DRAWTO ein, 
130: PLOTet die Ecke unten rechts, 

140: zieht eine Linie nach oben rechts, 

150: führt die Linie nach oben links weiter und 


160: POS.itioniert den unsichtbaren Cursor auf die Ecke 
unten links. 


170: gibt den Befehl zu Ausfüllen der Fläche. Das Nummern- 
zeichen (auf deutsch "Raute" geheißen) bezeichnet einen 
Datenkanal mit der Nummer 6, der nach '!S:", dem Grafik- 
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fenster (Screen) eröffnet werden soll. Aber das braucht uns 
hier alles nicht zu kümmern. Achten Sie nur darauf, den 
Befehl ohne Tippfehler hinzukriegen. 


180: verhindert das Programmende mit READY. 
RUN 


Ach! Das ist ja doch ein Dreieck! Weit gefehlt. Es kann 
grundsätzlich nur ein Viereck gefüllt werden. Was sich hier 
wie ein Dreieck gibt, ist in Wirklichkeit ein Trapez. Die 
obere Kante dieses Vierecks ist jedoch nur zwei Grafikpunkte 
lang (kürzer gehts ja nicht) und das sieht dann wie ein 
Dreieck aus. Ja unsere Wahr-nehmung. 


Ändern Sie nun in Zeile 110 den POKE in 763,3. Die Fläche 
wird jetzt in Blau ausgefüllt und Sie können besser beob- 
achten, wie das geschieht. Erst werden die linke und obere 
Kante mit COLOR 2 gezogen. Dann wird die linke Kante Punkt 
für Punkt gePLOTtet und nach jedem PLOT wird die Zeile 
bis zur rechten Kante mit COLOR 3 (POKE 765,3) gefüllt, bis 
der mit POS. bestimmte Punkt erreicht ist. Die untere Kante 
des Vierecks hat also die Füll-Farbe. Wenn Sie auch eine 
durchgehende Umrandung schöner finden, dann löschen Sie 
Zeile 180 und ergänzen: 


1390 FLOT 0,79 
200 DRAWTO 159, 79 
=10 GOTO 210 


Und weil wir gerade dabei sind, sollten Sie sich noch Zeit 
für folgendes Experiment nehmen. Der Bildschirm ist jetzt 
zur Hälfte von einem blauen Dreieck bedeckt, das eine gelbe 
Umrandung hat. PLOTten wir doch als nächstes ein Rechteck, 
von dem das ganze Grafikfenster eingefaßt wird und füllen 
dieses Grafikfenster aus. Mal sehn, was passiert: 


210 löschen! 

220 PLOT 1593, 73 

=530 DRAWTO 159,0 

240 DRAWTO 0,0 

250 FOSITION 0, 79 

z60 FOKE 708, SO 

70 POÜKE 765,1 

280 XIO 18,#6,0,0, "5" 
=90 GOTO 290 


Und was sehen Sie? Halbe Arbeit!Mit XIO ausgemalte Flächen 
können nicht erneut gefüllt werden, bereits gePLOTtete 
Linien erkennt XIO als rechte Begrenzung auf seinem Füll- 
weg. 
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1.5 Hilfe! 


In diesem Kapitel sind die schmerzlichen Erfahrungen durch- 
programmierter Nächte versammelt, Wunden aus verbissenen 
Kämpfen mit Programmen, die einfach nicht laufen wollten, 
mit Fehlern, die nicht zu entdecken waren, mit falschen An- 
leitungen und unrichtigen Hinweisen. 


Außerdem will ich an dieser Stelle ein paar Tips einstreuen, 
auf die sonst verzichtet wird, weil sie so banal klingen 
(und welcher Autor möchte schon banal wirken), für die ich 
als Anfänger aber dankbar gewesen wäre und die mir man- 
chen Frust erspart hätten. 


Wenn Sie eine BASIC-Zeile mit einem Fehler eingegeben ha- 
ben (RETURN-Taste), erscheint ein ERROR- gefolgt von der 
fehlerhaften Zeile und ein Cursor steht auf (dem Tippfehler) 
oder vor der fehlerhaften Anweisung. Überschreibt die Feh- 
lermeldung möglicherweise eine andere BASIC-Zeile, so ist 
diese deshalb nicht verloren! Sie ist noch im Speicher und 
auf das Kommando LIST ist sie wieder da. 


Sehen Sie sich also die fehlerhafte Zeile gut an. Wenn Sie 
den Fehler entdeckt haben, fahren Sie den Cursor nach oben 
und setzen ihn auf die Zeile mit der ERROR- Meldung. 
Drücken Sie die Tasten SHIFT und DELETE gleichzeitig und 
die Zeile verschwindet. Gehen Sie jetzt weiter nach oben 
und berichtigen den Fehler. Sie können also in den Pro- 
grammzeilen auf dem Bildschirm beliebig herumfahren und 
Änderungen vornehmen. Eine geänderte Zeile müssen Sie aber 
immer durch Druck auf die RETURN-Taste verlassen. Der 
Rechner nimmt dann die korrigierte Zeile als neue Zeile an. 


Wenn Sie eine fehlerhafte Zeile nicht sofort berichtigen, 
müssen Sie später die ganze Zeile neu schreiben.Der Rechner 
speichert nämlich nur die Zeile, die mit ERROR- beginnt und 
die läßt sich nicht verändern. Es ist also nicht möglich, 
das "ERROR- '" zu löschen und den Fehler zu korrigieren. 


Auch sonst merkt sich der Computer bei Zeilen mit gleichen 
Nummern immer die zuletzt eingegebene. Damit ist das 
Löschen einer BASIC-Zeile möglich. Tippen Sie die Zeilen- 
nummer und RETURN-Taste. Die alte, zu löschende Zeile wird 
durch diese leere Zeile ersetzt und leere Zeilen werden vom 
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Betriebssystem ignoriert; also: Zeile weg. 


Abgesehen von Tippfehlern machen sich die meisten Fehler 
erst bemerkbar, wenn das Progamm läuft, oder vielmehr 
laufen soll. Statt wie besessen draufloszutippen, sollten Sie 
Abschnitte Ihrer Programm-Kreation zwischendruch testen und 
wenn Sie ein Speichermedium (Cassette oder Diskette) haben 
auch abspeichern. Erst wenn ein Programmteil fehlerfrei 
läuft, sollten Sie den nächsten Abschnitt in Angriff nehmen. 


Das Kommando LIST bringt das LISTing, also die Folge der 
BASIC-Zeilen (nach Zeilennummern geordnet) auf den Bild- 
schirm (und erweitert auch auf Drucker, Cassette oder 
Diskette). Mit LIST Zeilennummer, Zeilennummer können Sie 
aus dem Gesamtprogramm auch nur ein paar Zeilen oder eine 
einzelne Zeile (LIST Zeilennummer) ausdrucken lassen. 


Die meisten Programme sind länger als das Fassungsvermögen 
des Bildschirms. LIST (und RETURN) startet die Ausgabe, 
drücken Sie jetzt die Tasten CONTROL und 1, wird das Aus- 
LISTen unterbrochen, und Sie können in Ruhe nach Fehlern 
suchen. Erneutes Drücken von CONTORL und 1 setzt das 
L_ISTen fort. 


Wenn Sie das LISTing unterbrochen und einen Fehler gefun- 
den haben, können Sie natürlich mit dem Cursor hinfahren, 
den Fehler beheben und mit RETURN abspeichern. Dabei ist 
aber Vorsicht geboten. Bei Druck auf CONTORL und 1, wird 
das LISTing irgendwo, wahrscheinlich mitten in einer BASIC- 
Zeile unterbrochen. Die letzte Zeile auf dem Bildschirm ist 
also eine verstümmelte BASIC-Zeile. Nun ist es sehr ver- 
lockend, nachdem die korrigierte Zeile mit RETURN verlassen 
wurde einfach so oft auf die RETURN-Taste zu drücken, bis 
der Cursor wieder am unteren Rand des Bildschirms ist. Da- 
bei würde aber die letzte Zeile in ihrer verstümmelten Form 
abgespeichert. 


Das Bearbeiten eines Programmes nennt man Editieren. Die 
Tastatur umfaßt einige Tasten, die nur für diesen Zweck da 
sind. Das sind zum einen die Cursor-Tasten und dann noch 
SHIFT, CONTORL, DELETE, INSERT, BACK-S, CLEAR. 


CONTROL oder SHIFT und CLEAR 

löscht den gesamten Bildschirm (nicht das Programm) und 
setzt den Cursor auf die Home-Position, in die linke obere 
Ecke also. Ihr wertvolles Programm bleibt also erhalten. 
Ein kleines LIST und Sie haben es wieder Weiß auf Hellblau 
vor Augen. 


BACK-S(pace) 
bewegt den Cursor um eine Schreibposition zurück und löscht 
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das dort stehende Zeichen. In Vorwärtsrichtung wird durch 
Betätigen der Leertaste gelöscht. 


CONTROL und INSERT 
schafft hinter dem Cursor eine freie Schreibstelle. Die übri- 
gen Zeichen der BASIC-Zeile werden entsprechend verschoben. 


SHIFT und INSERT 
schafft dort wo der Cursor steht eine leere Zeile. Vorsicht. 
Wird eine entsprechend lange BASIC-Zeile dadurch zerhackt, 
bleibt wie beim Regenwurm nur das Kopfstück mit der Zeilen- 
nummer erhalten. 


CONTROL und DELETE 
löscht das Zeichen unter dem Cursor 


SHIFT und DELET 

löscht die Zeile, in der sich der Cursor befindet. Eine 
BASIC-Zeile wird ganz gelöscht, auch wenn sie mehrere 
Bildschirmzeilen lang ist. Die BASIC-Zeile ist jedoch nur auf 
dem Bildschirm gelöscht, nicht aber im Memory (also soviel 
Englisch müssen Sie als Computer-Novize schon verkraften) 


Auf Seite 160 finden Sie ein kleines Programm, mit dem Sie 
diese Funktionen lernen können. 


BREAK 

unterbricht ein laufendes Programm. Wenn Sie beim Eingeben 
sind, können Sie durch Drücken der BREAK-Taste eine Zeile 
verlassen, ohne daß das gerade getippte Kommando auch 
ausgeführt wird. Die BREAK-Taste wirk wie die RETURN-Taste, 
der Cursor springt an den Anfang der nächsten Zeile, aber 
da kein EOL erfolgte (End Of Line, haben Sie das denn 
schon wieder vergessen? Seite 12), sieht sich der Computer 
auch nicht veranlaßt, irgendetwas zu tun. 


Wenn Sie ein laufendes Programm unterbrechen erscheint die 
Meldung: STOPPED AT LINE (Zeilennummer). Daraus lassen 
sich manchmal Rückschlüsse auf Programmfehler ziehen. Ein 
unterbrochenes Programm können Sie weiterlaufenlassen, 
wenn Sie CONT (inue) eintippen. 


(SYSTEM) RESET 

ist die zweite Möglichkeit, ein Programm abzubrechen. Das 
Betätigen dieser Taste löst einen sogenannten Warmstart 
aus, d.h. der Computer wird in den Zustand nach dem Ein- 
schalten versetzt, nur daß das Programm im Speicher er- 
halten bleibt. Unter Kaltstart versteht man entsprechend das 
Einschalten nachdem zuvor die Stromzufuhr unterbrochen 
war, und das überlebt kein Programm im Speicher. 
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Und sicher wird es auch Ihnen nicht erspart bleiben, daß 
eines schönen Programmiertages plötzlich nichts mehr geht. 
Welche Taste Sie auch drücken. Nichts. Der Computer ist 
abgestürzt. Keine Angst, solange die Maschine nicht vom 
Tisch stürzt, passiert ihr nichts, nur wenn Sie abgestürzt 
ist, gibt es nur einen einzigen Weg: ausschalten, Programm 
ade! (Es hilft nichts und wenn das Programm noch so lang 
ist, das Sie gerade im Speicher haben) 


Der Computer kann abstürzen, weil er zu warm geworden 
ist. 


Der Computer .kann abstürzen, weil mit irgendwelchen direk- 
ten Speichereingriffen Schaltungen veranlaßt wurden, die 
ihn in den Wahnsinn treiben. 


Der Computer kann abstürzen, weil der Chip mal aushakt. 
Nur in der Rüstungstechnik werden Chips aller erster Wahl 
verarbeitet (klar doch), bei Heim-Computern rutscht schon 
mal ein beschwipster Chip durch. Wenn Ihre Kiste also 
"ohne Grund" dauern aufgibt, dann sollten Sie doch einmal 
ein freundschaftliches Wort mit Ihrem Fachhändler wechseln. 


Also selbst, wenn Sie immer hübsch auf dem Pfad der BASIC- 
Tugend wandeln, kommt es hier und da einfach vor, daß 
Ihr ATARI streikt. Wenn man also seit einigen Nächten an 
einem Riesenprogramm herumhackt, dann sollte man immermal 
zwischendurch das Erreichte auf Band oder Diskette für den 
Fall der Fälle abspeichern. 


Auch Zeilennummern lassen sich ändern! Fahren Sie mit dem 
Cursor in die entsprechende Zeile und ändern Sie die Num- 
mer. Mit RETURN abspeichern. Natürlich denkt sich der 
Rechner nicht von selbst, daß das eine Änderung sein soll. 
Er nimmt die Eingabe als neue BASIC-Zeile in den Speicher 
auf. Sie müssen also ggf. die alte Zeile löschen. 


Diese Erkenntnis läßt sich trefflich nutzen, wenn Sie in 
einem Programm mehrere ähnliche Zeilen haben. Statt 
haufenweise BASIC-Zeilen einzutasten, die sich nur in 
wenigen Zeichen unterscheiden, schreiben Sie die erste Zeile, 
fahren dann mit dem Cursor zurück, ändern die Zeilennummer 
und die abweichenden Zeichen, RETURN, schon ist die Zeile 
im Speicher. Auf diese Weise erhalten Sie nullkommanix jede 
Menge BASIC-Zeilen. Auf LIST erscheinen sie auch alle auf 
dem Bildschirm. 


Für die Fehlersuche gibt es wenig Rat. Meist sind es ja 
logische Fehler, an denen das Programm scheitert. Man ge- 
wöhnt sich aber mit der Zeit daran, daß der Rechner ganz 
stur das tut, was man eintippt und nicht das, was man 
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sich dabei gedacht hat. Es hat also gar keinen Zweck zu 
denken, das Programm müsse so laufen, wie es geschrieben 
wurde. Wenn es nicht läuft, steckt irgendwo ein Fehler, 
auch wenn es manchmal schwerfällt, das zu akzeptieren. 


Gehen Sie das Programm Zeile um Zeile durch, verfolgen Sie 
jede Verzweigung, jeden Rücksprung, überprüfen Sie jede 
Bedingung. Verfolgen Sie eine einzelne Variable und merken 
sich, welchen Wert sie jeweils hat, wenn im Programm mit 
ihr gearbeitet wird. 


Auf jeden Fall lohnt es sich nach Tippfehlern zu suchen. 
Vielleicht steht an irgendeiner Stelle eine falsche Variable 
(H2 statt H3 oder gar HO statt HO). Auch die Richtigkeit der 
Satzzeichen , ; : lohnt es immer zu überprüfen. Und denken 
Sie immer daran, ein Programm zu schreiben ist die halbe 
Arbeit, die Fehler zu suchen die andere Hälfte. 


So! Da dieses Buch nicht den Anspruch erhebt, alles über 
die Bedienung des ATARI|I zu vermitteln oder ein erschöpfender 
BASIC-Kurs zu sein, soll an dieser Stelle endlich Schluß 
sein mit der Paukerei. 
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2 Bildschirmbilder 


Was wäre der Computer ohne Bildschirm. Und was wäre der 
Bildschirm ohne Farbe. Die gängigen Heim-Computer üben 
sich heute alle in Schönfärberei. Der ATARI ist Primus, 
wenns um Grafik und Farbe geht. Auf welchen geheimnis- 
vollen Pfaden die Farbe vom Rechner angerührt wird, wie 
sie dann in den Fernsehkasten fließt und dort die Matt- 
scheibe bunt färbt, das soll in diesem Abschnitt ahnungsvoll 
erzählt werden. 
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2.1.1 Lange Leitung 


Daß die Bilder hinten an Ihrem Computer aus einer kleinen 
runden Steckdose herauskommen und von dort vermittels eines 
passenden Kabels durch den Antenneneingang in den Fern- 
seher fließen, haben inzwischen außer Ihnen auch die übri- 
gen Familienmitglieder gemerkt (weil das Fernsehprogamm in 
letzter Zeit dauern ausfällt). 


Der Computer sendet also Signale, die vom Fernsehgerät 
empfangen werden wie der Freitagskrimi. Je nach Gerätever- 
träglichkeit und Verlauf des Übertragungskabels können ge- 
ringe Bildstörungen auftreten, ein leichtes Schwimmen oder 
ein an die Bildhelligkeit gekoppelter Brummton. Beim ATARI 
halten sich diese Mängel in Grenzen. 


Weil so ein Fernsehbild aber immer etwas unscharf ist und 
Ihre Familie auch mal wieder eine Quiz-Sendung sehen will, 
sollten Sie sich bei Zeiten einen Monitor zulegen. 


Über den Antennenausgang können Sie auch eine Verbindung 
zu einen Videorecorder herstellen. Sie können dann aufzeich- 
nen, was der Computer auf dem Bildschirm anstellt. So läßt 
sich mit einem Programm, das eine farbige Grafik Schritt 
für Schritt aufbaut und/oder verändert (Beispiele finden Sie 
im nächsten Abschnitt) der Vorspann für einen selbstge- 
drehten Videofilm oder ein vollständiger Trickfilm auf die 
Mattscheibe und die Videocassette bannen. 


Es ist allerdings nicht ganz problemlos, den Videorecorder 
sauber auf den Computer einzustellen. Wegen der Geräteviel- 
falt läßt sich hierzu nichts verbindliches sagen. Es ist 
jedoch auf jeden Fall vorteilhaft, wenn die Geräte (TV, 
Computer und Recorder) nicht zu dicht zusammenstehen. Alle 
Geräte haben ein elektromagnetisches Feld. Dadurch können 
die Bildsignale gestört werden. Hier sollten Sie auch beson- 
ders auf die Netzgeräte achten. 


Wenn Sie aber erst eine saubere Einstellung ausgetüftelt 
haben, werden Sie als Videofilmer immer neue Einsatzmöglich- 
keiten für den Heim-Computer finden. 
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2.1.2 Mattscheibe 


Erst seit der Computer ein gutes Bild abgibt, ist er salon- 
fähig geworden. Aber was für den User (das sind Sie) so 
problemlos aussieht: Kabel in den Antenneneingang, Computer 
an, TV an, Bild da-ist in Wirklichkeit ein delikater Prozeß, 
der vielerlei Probleme aufwirft. 


Bekanntlich besteht das Fernsehbild aus einer großen Menge 
kleiner Punkte, die in Zeilen angeordnet sind. Ein durch 
Magnetfelder abgelenkter Kathodenstrahl tastet den Bildschirm 
Punkt für Punkt ab. Er beginnt in der Ecke oben links, wo 
sonst, und schreibt eine Zeile. Am Ende Zeile schaltet er 
kurz ab (horizontal blank) und springt an den Anfang der 
nächsten Zeile und so fort, bis er unter rechts angekommen 
ist. Dort schaltet er für etwas länger ab (vertical blank), 
um wieder nach oben links zu springen. 


Die Signale, die der Fernsehapparat bekommt, müssen mit 
diesen Arbeitstakten genau übereinstimmen, sonst fängt das 
Bild an zu laufen oder es ist überhaupt nichts zu erkennen. 
Der Computer muß also mit dem TV-Gerät exakt synchronisiert 
sein. Für diese Arbeit ist der ATARI mit einem extra Chip 
ausgestattet. Das erklärt auch die brillierenden Grafikmög- 
lichkeiten und den Farbenreichtum. Dieses Bauelement heißt 
ANTIC. Es liest die Display-list, die angibt, wie die Bild- 
schirmzeilen des Fernsehers für die Grafikdarstellung aufge- 
teilt werden sollen. 


Theoretisch könnte natürlich jeder Bildschirmpunkt gesondert 
angesprochen werden. Das würde aber eine Speicherkapazität 
fordern, die (noch) kein Heim-Computer zu bieten vermag. 
In den verschiedenen Grafikbetriebsarten werden deshalb 
immer Gruppen von Punkten informationsmäßig zusammenge- 
faßt. 


ANTIC holt aus dem Bildschirmspeicher die Informationen, 
die das Bild enthalten und übergibt sie an einen Baustein 
(CTIA), der sie in Videosignale umsetzt. Von den 262 Bild- 
schirmzeilen, die von ANTIC verwaltet werden, sind aus 
technischen Gründen nur etwa 200 sichtbar, und damit es 
auch bei exotischen Fernsehgeräten keine Probleme gibt, 
werden in den vorprogrammierten Display-Lists (GRAPHICS 0 
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bis 15) nur 192 Bildschirmzeilen tatsächlich auf der Matt- 
scheibe zum Leuchten gebracht. Wenn in GR.O z.B. 24 Text- 
zeilen dargestellt werden und jede dieser Zeilen acht Bild- 
schirmzeilen hoch ist, so ergibt das (24 mal 8?) 192. 


Diese 192 Bildschirmzeilen sind in jeder Grafikbetriebsart 
anders aufgeteilt. In GR.8 gibt es z.B. 192 Zeilen mit je 
320 Bildpunkten, d.h. jeder einzelne der 61.440 Bildpunkte 
(Pixel), die der Computer von sich gibt, kann für sich an- 
gesprochen werden. Das kostet viel Speicherplatz und des- 
halb gibt es in GR.8 auch nur eine Farbwahlmöglichkeit. 


Mit etwas Wissen über die Funktionsweise von ANTIC und mit 
einer Landkarte für die Gehirnzellen des Computers kann 
man die vorprogrammierten Display-lists durch eine selbst 
komponierte zusammenstellen. Auf diese Weise ist es möglich, 
verschiedene Grafikbetriebsarten beliebig auf dem Bildschir 
(zeilenweise) zu mischen, wenn nur die Gesamtzahl der Bild- 
schirmzeilen 192 ergibt. 


So lassen sich denn auch oberhalb des gewöhnlich vom 
ATARI dargestellten Bildschirmbereichs (bei normalen deut- 
schen TV-Geräten) bis zu 32 Bildschirmzeilen, also z.B. vier 
GRAPHICS-O-Zeilen beschreiben. 


Aber solche Eskapaden sparen wir uns doch wohl lieber für 
später auf, oder? 
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2.1.3 Schöner Schein 


Da jeder zivilisierte Mensch heute einen Color-TV in der 
guten Stube stehen hat, wissen Sie sicher auch, daß all die 
schönen Farben aus nur drei Grundfraben zusammengemischt 
werden. Die Techniker sprechen da fröhlich von Rot, Grün 
und Blau. Na ja, wollen wir es ihnen nicht übel nehmen. 


In der Schule haben Sie ja sicher schon einmal in ein paar 
Farbtöpfen gerührt und dabei staunend beobachtet, daß sich 
die Farben vermischen. Blau und Gelb mischen sich zu 
Grün. Aus diesem Mysterium leiten die stolzen Kunsterzieher 
mit überlegenem Lächeln ab, daß es nur drei Grundfarben 
gibt (Gelb, Rot, Blau oder richtiger Gelb, Magenta, Cyan), 
aus denen alle anderen Farbtöne gemischt werden können 
(womit sie ja auch Recht haben). 


Das Mischen von Farben entspricht optisch dem Ausfiltern. 
Das '"weiße'' Licht eines Scheinwerfers wird durch ein blaues 
Filter blau gefärbt. Schieben wir auch noch ein gelbes Filter 
davor, wird das Licht grün. Wenn dann irgendein Tölpel 
auch noch ein rotes Filter vorschiebt, ist es stockdunkel. 
Diesen Vorgang nennt man subtraktive Farbmischung, weil 
vom Weiß einzelne Farbanteile ausgefiltert (subtrahiert) 
werden. 


Beim Fernseher ist das ganz anders. Hier haben wir es mit 
farbigen Lichtquellen zu tun, den Bildschirmpunkten. Diese 
Farben strahlen zusammen, ihre Wellen addieren sich: addi- 
tive Farbmischung. Und die ist nun wirklich recht eigen- 
artig, oder besser, sie kommt uns so vor, weil wir diesen 
Vorgang im täglichen Leben kaum erfahren. Es ist nämlich 
tatsächlich so, daß sich orangenes Licht und grünes Licht 
zu gelbem Licht mischen! Orangenes und violettes Licht 
mischen sich zu rot, grünes und violettes zu Blau. Alle drei 
Scheinwerfer zusammen, Orange, Grün und Violett ergeben 
weißes Licht. Ob Sie's glauben oder nicht. Durch die Dosie- 
rung dieser drei Lichtquellen (farbtheoretisch richtig sind 
das also Orange, Grün und Violett) lassen sich alle Farb- 
schattierungen erzeugen. 


Ein Farbfernsehbildschirm besteht also aus Pünktchen, die, 
lassen wir den Technikern ihren Spaß:rot, grün oder blau 
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aufleuchten können und im Zusammenwirken die verschiedenen 
Farbtöne erzeugen. 
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Wenn nun in der hochauflösenden Grafik (HIRES) von GR.8 
eine Linie gePLOTtet wird, so kann es sein, daß diese Linie 
nur bestimmte Farbpunkte berührt. Und obwohl in dieser 
Grafikart keine weiteren Farben gewählt werden können, 
werden Farbwirkungen auf dem Bildschirm sichtbar. 


Versuchen sie folgendes kleine Programm, um sich dieses 
Phänomen anzuschauen: 


10 GRAFHICS 8+16 

20 FOKE 710,0 

Ss0 FOR X=0 TO 5313 STEF 10 
40 COLOR 1 

Oo FLOT X,0 

60 DRAWTO X,1931i 

oO NEXT X 

80 GOTO 80 


10: wählt HIRES-Grafik ohne Textfenster (+16) und 
20: POKEt als Hintergrundfarbe 0 = Schwarz, das bringt die 


Farben am besten zur Wirkung. Hier könnte auch stehen 
SETCOLOR 2,0,0 


30: Der Schleifenzähler X läuft von 0 bis 319 in Zehner- 
schritten. 


40: schaltet Farbe 1 an. Es gibt in diesem Grafikmodus 
zwar keine andere Farbe, aber eingeschaltet werden muß 
trotzdem, zur Wahl steht ja auch noch Farbe O0 (Hinter- 
grund) 


50: zeichnet eine Punkt an der oberen Bildschirmkante und 
zwar in den Spalten O0 bis 319 in Zehnerschritten und 


62 


60: zieht eine Linie zur entsprechenden Position am unteren 
Rand. 


70: beendet die Schleife und 


80: sorgt dafür, daß unser schönes Bild nicht für READY 
ausgeknipst wird. 


Falls Sie dieses Programm wirklich laufen lassen sollten, 
werden Sie Ihr buntes Wunder erleben. Aber nicht genug 
damit! Andern Sie Zeile: 


&0 DRAWTO 319-X,191 


Das bewirkt, daß statt senkrechter Linien Diagonalen gezogen 
werden, die sich im Zentrum schneiden. Nun geben Sie schon 
ein RUN. Schillernde Farben erwarten Sie: Gelb, Lila, Grün 
und Purpur. 


Bei diesem schönen Testbild tritt noch ein weiterer Effekt 
auf (deswegen sollten Sie nun wirklich endlich das kleine 
Programm oben eintippen, so viel Arbeit ist das doch gar 
nicht). Die gePLOTteten Linien setzen sich aus vielen Pixels 
zusammen und obwohl diese Punkte recht klein sind, ist die 
Auflösung für unser naturverwöhntes Auge doch recht grob. 
Eine schräg verlaufende Linie bekommt deutlich sichtbare 
Brüche. Das kann so weit gehen, daß sich eine Linie in 
einzelne Punkte auflöst. Unsere Wahrnehmung (über deren 
Wahrheitsgehalt ja schon früher nachgedacht wurde) faßt 
benachbarte Elemente zusammen. So kann es geschehen, daß 
Bündel von Linien durch den Punktraster der Mattscheibe 
zerbrochen werden und unser Gehirn die Bruchstücke zu 
neuen Formationen zusammenfaßt. Beim vorliegenden Programm 
ist das im Zentrum, wo sich alle Linien schneiden, deutlich 
zu sehen. 


Eine ähnliche Wirkung entsteht, wenn zwei Lagen einer Gar- 
diene übereinanderliegen und die phantastischsten Muster 
erzeugen, Moire genannt. Man spricht deshalb von Moire- 
Grafik. 


Hier noch ein kleines Programm, daß die Brüche in den 
Linien für einen anderen Effekt ausnutzt: 


10 GRAFHICS Z4:FOKE 710,0 
20 FOR Y=0 TO 180 STER 10 
30 COLOR 1:PLCT 0,Y 

40 DRAWTO 319, Y+11 

50 PLOT 0, 191-Y 

&0 DRAWTO 319, 180-Y 

70 NEXT Y 

80 GOTD 80 
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2.2 Modell mit I6 Gängen 


Heim-Computer verfügen üblicherweise nur über zwei Dar- 
stellungsarten. In der Grundeinstellung können 40 mal 24 
(=960) Zeichen auf dem Bildschirm dargestellt werden, bei 
den farbenfrohen Modellen in sechzehn Standardfarben. Da- 
neben gibt es dann die (hochauflösende) HIRES-Grafik mit 
ca. 320 mal 200 Bildpunkten ohne Farbwahl und oft nur mit 
erheblichem Aufwand zu programmieren. 


Um in dieses starre Schema etwas Bewegung zu bringen, er- 
lauben diese Geräte die Definition sogenannter Sprites, Zei- 
chen, die in Form, Farbe und Bewegung vom übrigen Bild- 
schirminhalt getrennt programmiert werden können. Das 
Programmieren der Sprites ist aber oft auch ein Kapitel für 
sich. 


Statt Sprites bietet ATARI die PM- (Player und Missile) 
Grafik (s. 4.1.3), eine Routine, die über BASIC nur mit 
vielen PEEKs, POKEs und Problemen angesprochen werden 
kann. Bei den Farben aber tut sich der ATARI mit 16 mal 16 
Tönen hervor. Und bei der Grafikauflösung fährt er der Kon- 
kurrenz mit 16 Gängen davon. 


Alle sechzehn Betriebsarten sind zumindest bei den neueren 
XL-Modellen in BASIC mit GRAPHICS ansprechbar. Obwohl der 
verantwortliche Chip (ANTIC) der alte geblieben ist, konnte 
man bei den Vorläufermodellen nur die Betriebsarten O bis 
11 aufrufen. 


Es gibt zwei Grundformen von Betriebsarten. Die eine dient 
vorrangig der Darstellung von Text. In jede Schreibposition 
kann ein definiertes Zeichen gePRINTet werden. Die Zeichen 
werden dem Zeichensatz entnommen. Unter Umständen kann 
ein spezieller Zeichensatz definiert werden. Die fünf verfüg- 
baren Betriebsarten (0, 1, 2, 12 und 13) unterscheiden sich 
nur in der Größe der Schreibpositionen und den Farbmöglich- 
keiten. 


Die zweite Grundform dient der Darstellung von Grafik, die 
aus einzelnen Grafikpunkten zusammengesetzt wird. Die ver- 
schiedenen Grafikmodi unterscheiden sich in der Größe der 
Grafikpunkte (Auflösung) und der Anzahl der gleichzeitig 
darstellbaren Farben. 
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In den Grafikmodi O0 bis 8 und 12 bis 15 ist am unteren 
Rand ein Textfenster abgeteilt, das immer aus vier Zeilen 
in GR.O besteht. Der Farbton des Textfensters und die 
Helligkeit der Schrift wird von den Farbregistern des Grafik- 
fensters mitbestimmt. Gibt man dem Grafikfenster den glei- 
chen Farbton wie dem Hintergrund, verschwindet es optisch 
und man erhält eine einheitliche Bildfläche die aus zwei 
verschiedenen Darstellungsarten zusammengesetzt ist. 


Das Textfenster kann ausgeschaltet werden, indem man der 
Kennzahl des GRAPHICS den Wert 16 addiert. Das Grafik- 
fenster wird dann entsprechend größer. Also GR.5 schaltet 
Grafikmodus 5 mit vier Zeilen Textfenster ein. GR.5+16 (oder 
GR.21) teilt den gesamten Bildschirm in GR.5-Zeilen ein. 


Jeder GRAPHICS-Befehl löscht sofort den gesamten Bildschirm. 
Doch das Löschen des Bildschirms kann unterbunden werden, 
indem der Kennzahl des Befehls der Wert 32 hinzugerechnet 
wird. Das ist jedoch nur sinnvoll, wenn die Auflösung nicht 
verändert wird, weil es sonst zu unkontrollierbaren Wirkun- 
gen kommt. Diese Möglichkeit dient nur dem Einblenden des 
Textfensters: 


10 GRAFHICS 13 
20 COLOR 1 

30 PLOT 0,19 

40 DRAWTO 39,19 
SO PLOT 10,20 
60 DRAWTO 293,20 
70 FOR F=0 TO 200 
80 NEXT PR 

90 GRAPHICS 35 
100 POKE 710,0 
110 POKE 75%, 1 


120 7? ' TEXT EINBLENDUNG !" 
1350 FOR F=0 TO 700 
140 NEXT F 


150 GRAFHICS 51 
160 COLOR ? 

170 PLOT 0,20 
180 DRAWTO 19,20 
190 G0T0O 190 


10: GR.3 ohne Textfenster (+17) wird eingeschaltet und mit 
20: Farbe 1 
30: vom rechten Rand in Zeile 19 


40: bis zum linken Rand derselben Zeile ein Balken gezogen. 
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50: zeichnet in Zeile 20 von Spalte 10 


60: bis Spalte 29 einen zweiten Balken. Dieser Balken liegt 
an einer Stelle, wo das Textfenster hinreicht, wenn es ein- 
geschaltet ist. 


70: Eine kleine Pause, 
80: damit unser Auge folgen kann. 


90: Jetzt wird GR.3+32 eingeschaltet, also GR.3 mit Textfenster 
aber ohne den Bildschirm zu löschen. 


100: setzt die Farbe des Textfensters auf die Farbe des Hin- 
tergrundes, damit das Textfenster nicht als farbig hervor- 
gehobener Kasten erscheint. Nach jedem GRAPHICS müssen 
definierte Farbwerte (und alle anderen POKEs) erneuert 
werden. 


110: macht den Cursor unsichtbar 


120: PRINTet einenText aus. im Textfenster ist der POS.- 
Befehl nicht wirksam. Um den kurzen Text fein in die Mitte 
der Zeile zu setzen, beginnt der String mit entsprechend 
vielen Leerzeichen. Der Text ist von ! zu ! 20 Zeichen 
lang, es bleiben also 20 Zeichen übrig, die gleichmäßig auf 
jede Seite verteilt werden sollen, also je zehn. Da der 
PRINT aber links in Spalte 2 beginnt (wenn wir den linken 
Rand nicht umPOKEn), muß der String mit acht Leerzeichen 
beginnen. 


130 und 140: machen mal wieder eine Pause. 


150: schaltet GR.3+16+32 ein, also ohne Textfenster und ohne 
Bildschirmlöschen. Das Textfenster und mit ihr die Textein- 
blendung verschwindet wieder, die ursprüngliche Grafik ist 
wieder ganz zu sehen. 


160: Mit Farbe 2 wird in 
170 und 180: ein gelber Farbbalken gePLOTtet. 


Um den Unterschied zu sehen, ändern Sie Zeile 90 in GR.3 
und Zeile 150 in GR.19 um, also beide Male mit Bildschirm- 
löschen und sehen Sie sich die Bescherung an. 


Das Grafik- und Textfenster (bzw. das Grafikfenster allein) 
bedecken nicht die gesamte Fläche des Fernsehschirmes. In 
GRAPHICS O und 8 (bzw. 24) kann diese Randfarbe gesondert 
bestimmt werden. In den übrigen Begriebsarten sind Rand- 
und Hintergrundfarbe gleich. 
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2.2.0 GRAPHICS 0 


Dieser Textmodus ist der Grundzustand. Er wird beim Ein- 
schalten des Computers, nach einem Warmstart (Taste RESET) 
und in den Grafikmodi ohne Textfenster auch bei Programm- 
abbruch durch ERROR- oder BREAK-Taste und bei Programm- 
ende angewählt. GR.O muß also nur programmiert werden, 
wenn vorher eine andere Grafikbetriebsart eingeschaltet war 
oder wenn in GR.O mit dem COLOR-Befehl gearbeitet werden 
soll. 


Die Eigenschaften von GR.O gelten auch sinngemäß für die 
Textfenster in allen Grafikgängen. 


Spalten 40 (0 bis 39) 


Die Anfangswerte für den rechten und linken Rand können 
durch POKE 82,n (linker Rand) und POKE 83,n (rechter Rand) 
geändert werden. 


Zeilen 24 (0 bis 23) 


oder 20 Zeilen Grafikfenster plus vier Zeilen Textfenster 
(kann nur durch POKE 703,4 eingestellt werden) 


Auflösung 8 Bildpunkte breit 
8 Bildschirmzeilen hoch 
Farbregister Zeichenhelligkeit (709) 
Hintergrund (710) 
Rand (712) 


Register | SETCOLOR COLOR Grafikfenster Textfenster 
POKE SE. co. COLOR und PLOT: PRINT 
708 


Schrifthelligkeit 


Farbton 


Randfarbe 
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Neben der Möglichkeit mit ? "Strings" auf den Bildschirm zu 
schreiben, kann auch der COLOR-Befehl verwendet werden. 
Dann muß aber auf jeden Fall vorher im Programm GR.O 
aufgerufen worden sein. Hinter COLOR wird der ATASCII-Code 
des Zeichens gesetzt, das dann mit PLOT und DRAWTO aus- 
gegeben werden kann. Den vollständigen ATARI-Zeichensatz 
zeigt Ihnen folgendes Programm (s. auch Anhang 1): 


10 GRAFHICS © 

20 POKE 752,1 

30 FÜR C=0 TO 255 

40 COLOR C 

50 PLOT 19,11 

60 FOSITION #1, 11 
70°?cC 

80 OFEN #1,4,0, "Kr" 
30 GET #1, T:CLOSE m 
100 IF T=32 THEN 170 
110 GOTO 80 

120 NEXT C 


10: GRAPHICS O einschalten. 
20: Cursor unsichtbar machen. 


30: Schleifenzähler C von O bis 255 (der Zeichensatz umfaßt 
256 Zeichen) 


40: ruft durch COLOR das zum ATASCII-Wert gehörende Zei- 
chen auf und 


50: PLOTtet es an die Stelle 19,11 (Mitte des Bildschirms) 


60: Der POS.-Befehl stellt den unsichtbaren Cursor auf 21,11 
(das ist neben dem gerade ausgegebenen Zeichen) und 


70: ?tet den Wert von C, das ist der ATASCII-Code dieses 
Zeichens. 


80 bis 110: unterbrechen die FOR-NEXT-Schleife so lange, bis 
die Leertaste gedrückt wird. Diese Routine wird später noch 
erklärt werden. Drücken Sie jetzt einfach die Leertaste und 
freuen Sie sich, daß dann erst das nächste Zeichen auf dem 
Bildschirm erscheint. 


120: fragt den Schleifenzähler ab. 
Und hier noch ein Beispiel, was DRAWTO in GR.O bewirkt: 


10 GRAFHICS © 
0 FOKE 752,1 
so COLOR 31 

40 FLOT 19,0 
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50 DRAWTO 30,11 
50 DRAWTO 19, 22 
70 DRAWTO 8,11 

80 DRAWTO 19,0 

30 GOTO 3 


10: schaltet GRAPHICS O ein und 
20: den Cursor aus 


30: ruft ATASCII-Zeichen 31 auf. Diesen Wert hat die Taste 
"Cursor nach rechts" und wird grafisch durch einen Pfeil 
dargestellt, der nach rechts weist. 


40: schreibt diese Zeichen in die Mitte der oberen Bild- 
schirmkante, 


50: zieht eine diagonale Linie nach links. Diese Linie be- 
steht natürlich aus dem aufgerufenen Zeichen. 


60: zieht die Linie weiter bis zur Mitte des unteren Bild- 
schirmrandes und 


70: geht diagonal hoch nach links. 

80: vollendet das Karo. 

90: verhindert die Beendigung des Programms. 
Gehen wir noch einen Schritt weiter: 


30 COLOR 147 

1090 FLOT 0,25 

110 DRAWTO 39,0 

120 ? "ENDE" 

30 GOTO 130 

90: ruft das Zeichen + in inverser (negativer) Darstellung 
auf und 


100: PLOTtet dieses Zeichen in die untere linke Ecke des 
Bildschirms. 


110: zieht eine Linie mit diesem Zeichen nach oben rechts. 
Bei dieser groben Auflösung sehen Sie die Brüche in der 
Linie sehr deutlich und können auch beobachten, wie der 
Rechner die Koordinatenwerte rundet. 


120: schreibt ENDE, aber wohin? 
130: fängt das Programm auf. 


Lassen Sie das Programm laufen, drücken Sie Taste BREAK, 
um es zu unterbrechen und dann tasten Sie LIST, um eine 
weitere Änderung vorzunehmen. Doch was geschieht? 
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ERROR- LIST 


Bevor wieder etwas auf dem Bildschirm ausgegeben werden 
kann, müssen Sie die Mattscheibe löschen: SHIFT und CLEAR 
und dann: LIST. Andern Sie Zeile 


10 GRAFHICS O:FOKE 705,4 

Dadurch wird der Bildschirm in ein Grafikfenster mit 20 
Zeilen und ein Textfenster mit vier Zeilen aufgeteilt. 

Wo steht das ENDE jetzt? 


Und warum? 
? 
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2.2.1 GRAPHICS 1/17 


In diesem Textmodus sind die Zeichen doppelt so breit wie 
in Gr.O und haben dieselbe Höhe. Es ist jeweils nur der 
halbe Zeichensatz verfügbar, im Grundzustand Großbuchsta- 
ben, Satzzeichen und Ziffern. Die zweite Hälfte des Zeichen- 
satzes, Kleichbuchstaben und Pseudografik kann durch 
POKE 756,226 eingeschaltet und mit POKE 756,224 wieder aus- 
geschaltet werden. 


Die Zeichen können mit COLOR n aufgerufen und mit PLOT 
und DRAWTO ausgegeben werden. Durch den numerischen Wert 
n wird ein bestimmtes Zeichen und eines von vier Farbre- 
gistern angesprochen. 


Mit dem Befehl PRINT=6; können die Zeichen auch als String 
an das Grafikfenster ausgegeben werden. Je nach Art des 
Zeichens im String (Großbuchstabe, Kleinbuchstabe, normal 
oder invers) wird ein anderes Farbregister angesprochen. 
Ausgegeben werden aber immer nur normale Großbuchstaben. 


Der Aufruf mit COLOR erlaubt PLOT und DRAWTO. Der Aufruf 
mit ?=6; gestattet den POSITION-Befehl. 


Spalten 20 (O0 bis 19) 
Zeilen 24 (0 bis 23) oder 

20 plus 4 Zeilen Textfenster 
Auflösung 16 Bildpunkte breit 

8 Bildschirmzeilen hoch 
Farbregister Zeichen (708, 709, 710, 711) 


Hintergrund und Rand (712) 
Register | SETCOLOR COLOR Grafikfenster Textfenster 
POKE SE. C0. PRINT#6 und PLOT PRINT 
Großb ./Ziffern 
Kleinbuchst. Schrifthelligkeit 


ATASCIllinv. Großb./Ziff. Farbton 
ATASCIIinv. Kleinbuchst. 


Hintergrund 
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Die Ermittlung des numerischen Ausdrucks, der hinter COLOR 
ein bestimmtes Zeichen in einer bestimmten Farbe aufruft ist 
etwas verwirrend, wenn auch ein System hinter der Sache 
steckt. 


Die normalen ATASCII-Werte 32 bis 95 sprechen die Farbe 
aus Register 708 (SE.0) an. Teilen wir diesen halben Zei- 
chensatz in Gedanken in zwei Teile. Die obere Hälfte reicht 
dann vom Leerzeichen (32) bis zum Fragezeichen (63) und 
die untere Hälfte vom Klammeraffen (64) bis zum Unterstrich 
(95). 


COLOR-Wert Differenz Farbregister SETCOLOR 


32 bis 63 ATASCII 708 
0 bis 31 ATASCII - 32 709 
160 bis 191 ATASCII + 128 710 


128 bis 159 ATASCII + 128 - 32 711 


64 bis 95 ATASCII 708 
96 bis 127 ATASCII + 32 709 
192 bis 223 ATASCII + 128 710 
224 bis 255 ATASCII + 128 + 32 711 


Der bequemeren Übersicht halber finden Sie im Anhang 5 
eine Tabelle, aus der Sie die COLOR-Werte für das jeweilige 
Zeichen in einer bestimmten Farbe ablesen können. Und mit 
dem folgenden Progrämmchen können Sie sich den Farb- und 
Zeichenvorrat anschauen: 


LO GRAFHICS 1 
20 FOR C=0 TO 255 
30 COLOR C 

40? 0, 

50 PLOT 9,3 

60 OPEN #1,4,0, "Kr" 
70 GET #1,T 

80 CLOSE #1 

30 IF T=32 THEN 110 
100 G0T0 60 

110 NEXT C 





10: schaltet die Grafikbetriebsart 1 ein. Sie können hier 
aber auch GR.2 einsetzen, dann sind die Zeichen größer und 
besser zu erkennen. 


20: arbeitet alle Werte von O0 bis 255 in der Variablen C ab. 
30: ruft Zeichen/Farbe mit dem COLOR-Wert C auf. 
40: druckt zur Kontrolle den Wert C ins Textfenster. 
50: PLOTtet COLOR C an die Stelle 9,9. 
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60 bis 100: kontrollieren den Ablauf des Programms über die 
Leertaste. 
110: prüft die Schleifenvariable C. 


Wenn Sie sich die erste Hälfte des Zeichensatzes (Großbuch- 
staben, Satzzeichen, Ziffern) in den Farben der vier Farb- 
register angesehen haben, können Sie sich noch die zweite 
Hälfte (Kleinbuchstaben, Pseudografik) ansehen, wenn Sie 
Zeile 10 ändern: 


10 SRAFHICS L:FORE 756, 226 


Es ist in diesem Grafikgang nicht möglich, Zeichen aus der 
ersten Hälfte des Zeichensatzes und solche aus der zweiten 
Hälfte gleichzeitig auf die Mattscheibe zu bringen. 


Nun versuchen Sie noch die Ausgabe mit PRINT: 


10 GRAFHICS 1 
20 POSITION 6,5 
30? #63 "QUATSCH" 


Die POS.itionierung in Zeile 20 stellt den unsichtbaren Cursor 
auf 6,5. Ab hier wird der String fortlaufend ausgedruckt. 


Schreiben Sie jetzt den String in Zeile 30 in inversen Groß- 
buchstaben. RUN. Und jetzt in Kleinbuchstaben. RUN. 


Was ist denn mit dem ! los!? 


Und jetzt noch in inversen Kleinbuchstaben? (och nö) 
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2.2.2 GRAPHICS 2/18 


Die Angaben für GRAPHICS 1 treffen auch auf GR.2 zu. Der 
einzige Unterschied besteht in der Auflösung. 


Spalten 20 (0 bis 19) 
Zeilen 12 (0 bis 11) oder 

10 plus 4 Zeilen Textfenster 
Auflösung 16 Bildpunkte breit 

16 Bildschirmzeilen hoch 
Farbregister Zeichen (708, 709, 710, 711) 


Hintergrund und Rand (712) 


Register | SETCOLOR COLOR Grafikfenster Textfenster 
POKE PRINT#6 und PLOT PRINT 
Großb ./Ziffern 
Kleinbuchst. Schrifthelligkeit 





ATASCIIlinv. Großb./Ziff. Farbton 
ATASCIIlinv. Kleinbuchst. 





Hintergrund 


Wenn Sie noch Lust haben, dann sollten Sie einmal dieses 
hier eintasten (und wenn Sie keine Lust mehr haben, dann 
legen Sie das Buch beiseite und lesen morgen weiter): 


10 SRAFHICS 2 
40 COLOR 151 

50 FLOT 0,0 

60 DRAWTO 19,6 
70 COLOR 173 

80 FLOT O,1 

30 DRAWTO 19,1 
100 COLOR 19 
110 FLOT 0,2 
120 DRAWTO 19, 
150 COLOR 56 
140 FLOT 0,5 
150 DRAWTO 19,3 
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10: schaltet GR.2 ein 


40: wählt das Zeichen 151 (55+128-32). ATASCII 55 ist die 
Ziffer 7, die Differenz von +96 (128-32) spricht das Farbre- 
gister 711 (SE.3, Standardwert Flieder) an. 


50: PLOTtet eine lila 7 oben links in die Ecke des Bild- 
schirms und 


60: zieht die lila 7, eine neben der anderen, insgesamt 20 
Stück, bis in die Ecke oben rechts. 


70: ruft Zeichen 51, das ist die Ziffer 3, +128 (=179) auf, 
das erregt Farbregister 710 (SE.2) 


80: bringt die blaue 3 nach 0,1 und Zeile 
90: zieht Leine bis zum rechten Rand. 


100: ruft Zeichen 51 auf und durch -32 (=19) wird Register 
709 (SE.1) abgefragt. Dadurch erscheint in Zeile 


110: diesmal eine gelbe 3, die in Zeile 
120: wieder bis zum rechten Rand gezogen wird. 


130: ruft mit dem Wert 56 die 8 herbei, die aus Register 708 
(SE.0O) orange gefärbt in Zeile 


140: in der vierten Zeile antritt und auch 
150: zum linken Rand geDRAWTOt (it's Denglisch!) wird. 


Wenn Sie diese schöne Grafik anflimmert, sollten wir noch 
einen weiteren Schritt wagen. Schalten Sie um, auf die zweite 
Hälfte des Zeichensatzes: 


30 POKE 756, 226 
Herzergreifend! Was Ihnen hier um die Augen geschlagen 
wird, verrate ich nicht. Ich habe nämlich schon gemerkt, 


daß sie recht faul sind und auf früheren Seiten schon mal 
das eine oder andere UÜbungsprogramm geschwänzt haben. 


Aber was tun wir nun mit dem Schlamassel auf dem Bild- 
schirm. Ist die zweite Hälfte des Zeichensatzes nur eine 
theoretische Möglichkeit? 


Sie sollten sich jetzt erst einmal im Anhang die Tabelle 2 
ansehen. Sie finden in der zweiten Hälfte des Zeichensatzes 
kein Leerzeichen. Da müssen wir uns einen Trick einfallen 
lassen. Aber wie! 


Am liebsten würde ich Ihnen jetzt vorschlagen, doch selbst 
über eine Lösung nachzudenken. Aber ich verrat es doch 
lieber gleich, dann gibt es keinen Ärger. 
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Man nehme: ein Farbregister, das nicht gebraucht wird. Da 
wir alle Register im Einsatz haben, müssen wir eines opfern. 
Soll es 708 treffen. Dieses Register stellen wir auf den glei- 
chen Wert ein, den auch der Hintergrund (712) hat. 


Wenn Sie den Wert in 712 nicht kennen, fragen Sie einfach: 
?PEEK (712) oder kümmern sich gar nicht drum und schreiben 
POKE 708,PEEK(712). Falls sich dann im Verlauf des Pro- 
grammes der Farbwert des Hintergrundes ändern sollte, so 
ändert sich der Wert in 708 gleich mit. 


Da die Herzchen ihre Farbe aus Register 708 beziehen, sind 
sie zwar immer noch da, aber nicht mehr zu sehen, weil sie 
die gleiche Farbe wie der Hintergrund haben. 


Falls Sie aus irgendeinem unvorstellbaren Grund nicht das 
Farbregister 708 dem Hintergrund angleichen können (oder 
wollen), dann müßten Sie nicht nur ein anderes Register 
opfern sondern auch mit einem COLOR-Wert, der sich auf 
dieses Register bezieht, alle Leerstellen vollischreiben. 


Wenn Sie auch 

20 FOKE 708,0 

vorziehen, dann können Sie die drei letzten Zeilen getrost 
löschen: 

130 

140 

150 


Der Mühe Lohn. So ist das beim Programmieren. Mit etwas 
Ideenreichtum gibt es (fast) immer eine Lösung. Vielleicht 
ist diese Herausforderung der Grund, warum immer mehr 
Leuten (warum eigentlich fast nur Männern?) die Finger am 
Keyboard festwachsen. 
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2.2.3 GRAPHICS 3/19 


Diese Betriebsart hat die gröbste Auflösung. Ein Grafikpunkt 
ist so groß wie der Cursor in GR.O. Für viele Anwendungen 
reicht diese Auflösung aus. Oft ist eine gröbere Auflösung 
sogar wirkungsvoller als eine feine. Das muß im Einzelfall 
der Augenschein zeigen. Besonderer Vorzug dieses Grafik- 
ganges ist der trotz Vierfarbigkeit geringe Speicherbedarf 
von nur 279 Bytes. 


Spalten 40 (0 bis 39) 
Zeilen 24 (O0 bis 23) oder 

20 plus 4 Zeilen Textfenster 
Auflösung 8 Bildpunkte breit 

8 Bildschirmzeilen hoch 
Farbregister Grafikpunkte (708, 709, 710) 


Hintergrund und Rand (712) 


Register | SETCOLOR COLOR Grafikfenster Textfenster 
POKE SE. Co. PLOT und DRAWTO PRINT 
Grafikp./CO.1 
Grafikp./CO.2 Schrifthelligkeit 


Grafikp./CO.3 Farbton 


Hintergrund 





100 GRAFHICS 35 

110 COLOR 31:PLOT 0,0 

120 COLOR Z3FLOT 1,1:DRAWTO z,1 
130 COLOR 3:FL0OT 3,2:DRAWTO 6,2 
140 ? "DREI FARBEBALKEN" 
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Dieser Grafikmodus hat eine doppelt feine Auflösung. Durch 
Verzicht auf zwei Farbtöne ist der Speicherbedarf für einen 
Bildschirminhalt mit 537 Bytes auch noch sehr gering. 


Spalten 80 (0 bis 79) 
Zeilen 48 (0 bis 47) oder 

40 plus 4 Zeilen Textfenster 
Auflösung 4 Bildpunkte breit 

4 Bildschirmzeilen hoch 
Farbregister Grafikpunkte (709) 


Hintergrund und Rand (712) 


Register | SETCOLOR COLOR Grafikfenster Textfenster 
POKE PLOT und DRANTO PRINT 


Grafikp./CO.1 





Schrifthelligkeit 


Farbton 


Hintergrund 





100 GRAFHICS 4 

110 COLOR 1:FLOT 0,0:DRAWTO 793,0 
120 COLOR 1:FL0T 1,35DRAWTO 78,5 
150 COLOR 3:PLOT 5,6:DRAWTO 76,6 
140 ? "DREI FAREBBALKEN" 


80 


2.2.5 GRAPHICS 5/21 


Die Angaben für GRAPHICS 4 gelten auch für diese Betriebs- 
art, nur daß vier Farbtöne ausgegeben werden können. Der 
Bildschirmspeicherbedarf ist dadruch fast doppelt do groß. 


Spalten 80 (O0 bis 79) 
Zeilen 48 (0 bis 47) oder 

40 plus 4 Zeilen Textfenster 
Auflösung 4 Bildpunkte breit 

4 Bildschirmzeilen hoch 
Farbregister Grafikpunkte (708, 709, 710) 


Hintergrund und Rand (712) 


Register | SETCOLOR COLOR Grafikfenster Textfenster 
POKE SE. co. PLOT und DRAWTO PRINT 
Grafikp./CO.1 
Grafikp./CO.2 Schrifthelligkeit 


Grafikp./CO.3 Farbton 


Hintergrund 





100 GRAFHICS 5 

1109 COLOR 1:FLOT 0,0:DRAWTO 79,0 
120 COLOR Z:FLOT 1,35:DRAWTO 78,5 
130 COLOR 3:PLOT 3,6:DRAWTO 76,69 
140 ? "DREI FARBBALKEN" 
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2.2.6 GRAPHICS 6/22 


Dieser Grafikgang mit vierfacher Auflösung hat einen Spei- 
cherbedarf von knapp 2 kByte, obwohl nur eine Farbe für 
Grafikpunkte und eine für den Hintergrund gewählt werden 
kann. 


Spalten 160 (O0 bis 159) 
Zeilen 96 (0 bis 95) oder 
80 plus 4 Zeilen Textfenster 


Auflösung 2 Bildpunkte breit 
2 Bildschirmzeilen hoch 


Farbregister Grafikpunkte (708) 
Hintergrund und Rand (712) 


Register $ SETCOLOR COLOR Grafikfenster Textfenster 
POKE PLOT und DRAWTO PRINT 


Grafikp./CO.1 





Schrifthelligkeit 


Farbton 


Hintergrund 





100 GRAFHICS 6 
110 COLOR 1:FLOT 0,0:DRAWTO 159,0 
120 COLOR 1:FLOT #,5:DRAWTO 157,5 
130 COLOR 1:PLOT 6, 10:DRAWTO 153,10 
140 ? "DREI FARBBALKEN" 
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2.2.7 GRAPHICS 7/23 


Die Angaben von GR.6 entsprechen auch dieser Betriebsart. 
Es können jedoch vier Farbtöne gleichzeitig dargestellt wer- 
den. Der Speicherbedarf für den Bildschirm ist deshalb fast 
doppelt so groß (3945 Byte) 


Spalten 160 (0 bis 59) 
Zeilen 96 (0 bis 95) oder 

80 plus 4 Zeilen Textfenster 
Auflösung 2 Bildpunkte breit 

2 Bildschirmzeilen hoch 
Farbregister Grafikpunkte (708, 709, 710) 


Hintergrund und Rand (712) 





Register | SETCOLOR COLOR Grafikfenster Textfenster 
POKE PLOT und DRAWTO PRINT 
Grafikp./CO.1 
Grafikp./CO.2 | Schrifthelligkeit 





Grafikp./CO.3 Farbton 


Hintergrund 





100 GRAPHICS 7 

110 COLOR 1:PLOT 0,0:DRAWTO 159,0 
120 COLOR Z:FLOT 2, 5:DRAWTO a a) 
150 COLOR 3:FLOT 6, 19:DRAWTO 153,10 
140 ? "DREI FARBBALKEN" 
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2.2.8 GRAPHICS 8/24 


Bei dieser feinsten Auflösung (High RESoslution) kann jeder 
der 61.440 Bildpunkte (Pixel) einzeln angesprochen werden. 
Das erfordert einen Speicherplatz für den Bildschirm von 
fast 8 kByte (7900 Byte). Deshalb kann nur eine Farbe für 
das Grafikfenster und die Helligkeit der Grafikpunkte defi- 
niert werden. 


Diese Betriebsart ist von der Struktur her mit GRAPHICS O 
gleich. So ist es z.B. denkbar, in GR.8 Zeichen Punkt für 
Punkt darzustellen und das könnten auch Zeichen sein, die 
dem Zeichensatz entsprechen. Es wäre allerdings eine sehr 
mühsame Arbeit, einen ganzen Text, Buchstabe um Buchstabe, 
und jeden einzelnen Buchstaben Pixel für Pixel zu pro- 
grammieren. 


Spalten 320 (O0 bis 319) 
Zeilen 192 (0 bis 191) oder 
160 plus 4 Zeilen Textfenster 
Auflösung jeder einzelne Bildpunkt kann 
für sich angesprochen werden 
Farbregister Grafikpunkthelligkeit (709) 
Hintergrund (710) 
Rand (712) 


Register | SETCOLOR COLOR Grafikfenster Textfenster 
POKE SE. Co. PLOT und DRANWTO PRINT 


Grafikp.hell Schrifthelligkeit 


Hintergrund Farbton 


Randfarbe 
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100 GRAPHICS 24 

110 COLOR 1 

120 FOR X=0 TO 17 

130 FOR B=0 TO X 

140 PLOT X”"zZ+B,0 

150 DRAWTO X"Z+HR, 191 

160 NEXT B 

170 NEXT X 

175 ? "Was ist jetzt los?" 
180 FOR CH=6& TO 254 STER 8 
190 FOKE 710,CH 

200 FOKE 712, CH-6& 

210 FOR CG=0 TO 14 STEF & 
220 POKE 7093,C6G 

=30 FOR FAUSE=-0 TO 300 
240 NEXT FAUSE 

250 NEXT CG 

260 NEXT CH 

270 GOTO 180 


100: GR.8+16 (ohne Textfenster) 


110: Warum COLOR? Es steht zwar nur eine Farbe (bzw. ab- 
weichende Helligkeit) für Grafikpunkte zur Verfügung, aber 
wir können auch COLOR 0 (Hintergrund) aufrufen und damit 
gePLOTtetes ausradieren. 


120 bis 170: erzeugen ein Bild aus immer breiter werdenden 
Streifen (beachten Sie den räumlichen Effekt!) 


175: Ja, was ist jetzt los! Wo soll denn der arme Rechner 
diesen Text hindrucken. Wir haben ihm kein Textfenster ge- 
lassen, also schaltet er GR.O ein, um diesen Auftrag auszu- 
führen. Löschen Sie diese Zeile oder richten Sie ein Text- 
fenster ein. 


180 bis 260: wechselt die Farbwerte für den Hintergrund, 
den Rand und die Helligkeit der Grafikpunkte. Wenn die 
Grafikpunkte die gleiche Helligkeit haben wie der Hinter- 
grund, dann sehen Sie gar nichts, denn der Farbton von 
beiden ist gleich. 


270: Rücksprung nach 180. 
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2.2.9 GRAPHICS 9 


In dieser Betriebsart kann nur ein Farbton ausgewählt wer- 
den, aber mit COLOR O0 bis 15 können alle sechzehn Hellig- 
keitsstufen auf dem Bildschirm dargestellt werden. Dies ist 
der einzige Grafikmodus, bei dem die ungeraden Helligkeits- 
werte zur Wirkung kommen. 


Die Grafikpunkte haben eine etwas unhandliche Form, aber 
nur so läßt sich die relativ feine Auflösung so farbfreudig 
realisieren, ohne den Speicher zum Platzen zu bringen. 
Immerhin werden durch GR.9 7900 Bytes belegt. 


Spalten 80 (O0 bis 79) 
Zeilen 192 (0 bis 191) 
Textfenster nicht möglich 


Auflösung 4 Bildpunkte breit 
1 Bildschirmzeile hoch 


Farbregister Farbton der Grafikpunkte, 
Rand und Hintergrund (712) 


Register | SETCOLOR COLOR Grafikfenster 
POKE PLOT und DRAWTO 


Grafikpunkte/Hintergrund 


Grafikpunkt Helligkeit 1 
Grafikpunkt Helligkeit 2 
Helligkeiten 3 bis 14 
Grafikpunkt Helligkeit 15 





Mit dem folgenden Demonstrationsprogramm können Sie sich 
den kompletten Farbreichtum des ATARI vorführen lassen. Das 
Programm hat aber auch noch einen praktischen Nutzen: Sie 
können Ihren Fernseher oder Monitor auf die Farbsignale 
des ATARI abstimmen. Der Bildschirm ist in sechzehn Farb- 
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streifen mit steigenden Helligkeiten aufgeteilt: 
100 GRAPHICS 9 

110 POKE 712,0 

120 FOR H=0 TO 15 

130 COLOR H 

140 FOR B=0 TO 4 

150 PLOT H*5+B,0 

160 DRAWTO H*S+B, 191 

170 NEXT R 

180 NEXT H 

190 FOR C=0 TO 15 

200 FOKE 712, C#16 

210 FOR FAUSE=0 TO 300 

220 NEXT FAUSE 

230 NEXT C 

240 GOTU 190 

120: wechselt den Helligkeitswert H von O bis 15, der 


130: mit COLOR aufgerufen wird 


140: sorgt dafür, daß Farbbalken gePLOTtet werden, die 
fünf Grafikpunkte breit sind. Das geschieht in 150 und 160. 


190: wechselt den Farbwert C von OÖ bis 15. 


Das nächste Programm soll Ihnen zeigen, was man mit GR.9I 
anstellen kann (wenn man will): 


10 REM VORSFANN 

20 GRAFHICS 9:SETCOLOR 4,1,0 

40 C=C+l:IF C=16 THEN 250 

50 COLOR CiA=A+1 

60 FOR L=191 TO © STEF -19 

70 PLOT 24+A, 935:DRAWTO O,L:NEXT L. 
100 FOR 0=0 TO 79 STEF 8 

110 PLOT 24+AM, 95:DRAWTO 0,0:NEXT O 
140 FOR R=1 TO 191 STEF 13 

150 PLOT 24+A, 35:DRAWTO 79, RENEXT R 
180 FOR U=79 TO © STEF -8 

190 PLOT 24+N, 95:DRAWTO U, 131:NEXT U 
220 GOTO 40 

230 GOTD 230 


Von einem Punkt in mittlerer Höhe des Bildschirms (24+A,95) 
werden strahlenförmig Linien zum L(inken), Of(beren), 
R(echten) und U(nteren) Bildschirmrand gezogen. Wenn ein 
Strahlenbündel fertiggePLOTtet ist, wird mit COLOR C die 
nächste Helligkeitsstufe gewählt und das Zentrum der Strah- 
len um einen Grafikpunkt nach rechts verlegt. (Die Variable 
A ist überflüssig PLOT 24+C,95 bringt das selbe Ergebnis!) 
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2.2.10 GRAPHICS IO 


Dieser Grafikgang ist GRAPHICS 9 verwandt. Die Auflösung 
ist identisch, es können jedoch neun verschiedene Farbtöne 
gleichzeitig dargestellt werden, deren Farbwerte alle beliebig 
definierbar sind (aber nur gerade Werte). 


Mit dem SE.-Befehl können jedoch nur fünf Farbwerte fest- 
gesetzt werden. Die übrigen vier Farbtöne können nur durch 
direkten Speicherzugriff gePOKEt werden. Die zusätzlichen 
Register 704 bis 707 werden nur in diesem Grafikmodus an- 
gesprochen. Sie stehen sonst für die Player-Missile-Grafik 
(s. 4.1.3) zur Verfügung. 


Die Register 704 bis 707 haben den Anfangswert O0 (Schwarz) 


Spalten 80 (0 bis 79) 
Zeilen 192 (O bis 191) 
Textfenster nicht möglich 
Auflösung 4 Bildpunkte breit 
1 Bildschirmzeile hoch 
Farbregister Grafikpunkte (705 bis 712) 


Hintergrund und Rand (704) 


Register | SETCOLOR COLOR Grafikfenster 
POKE SE. co. PLOT und DRAWTO 
704 0 


Grafikpunkt/Hintergrund 





Grafikpunkt 
Grafikpunkt 
Grafikpunkt 
Grafikpunkt 
Grafikpunkt 
Grafikpunkt 
Grafikpunkt 
Grafikpunkt 





705 1 
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100 REM GRIODEMO. BIR 
110 GRAPHICS 10 

120 FOR I=0 TO 8 

130 POKE 704+1,12*] 
140 NEXT I 

150 FÜR C=0 TO 8 

160 COLOR C 

170 FOR Y=0 TO 19 

180 PLOT 0, C#20+Y 

190 DRAWTO 79, C#ZU+Y 
200 NEXT Y 

210 NEXT C 

220 COLOR ©Ö 

230 PLOT 0,0 

240 DRAWTO 79,173 

250 FOR J=0 TO 100 

260 FOR I=0 TO 8 

270 TRAF 100 

280 POKE 704-1, PEEK (704+1)+Z 
300 NEXT I 

310 FOR PAUSE=O TO 300 
320 NEXT PAUSE 

330 NEXT J 


100: REM(ember), eine Denkzettelzeile, die vom Rechner nicht 
bearbeitet wird. 


120 bis 140: POKEt in die Farbregister 704+0 bis 704+8 (=712) 
die Farbwerte 12*0 bis 12*8. 


150: wechselt den COLOR-Wert C von O bis 8 


170 bis 190: zeichnen einen waagerechten Farbbalken, der 
zwanzig (Y=0 bis 19) Bildschirmzeilen hoch ist. Der Wert 
C*20 sorgt dafür, daß jede 20ste Zeile ein neuer Farbbalken 
beginnt. 


220 bis 240: ziehen eine Diagonale in der Farbe O0 (Hinter- 
grund) durch das Grafikfenster. 


250: Für 101 Durchläsfe 


260: wird mit der Variablen I die Farbe in den Farbregistern 
gewechselt. 


270: Dabei wird irgendwann in Zeile 280 ein unzulässiger 
Farbwert gePOKEt. TRAP sorgt vor: Wenn ein Fehler auftritt, 
wird nicht etwa das Programm abgebrochen, das wäre ja 
auch schade, sondern nach Zeile 100 verzweigt. Die TRAP- 
Falle muß natürlich vor einer möglichen Fehlerquelle lauern. 
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2.2.11 GRAPHICSII 


Auch diese Betriebsart ist GRAPHICS 9 und 10 verwandt. Die 
Auflösung ist die gleiche, es können jedoch sechzehn ver- 
schiedene Farbtöne gleichzeitig auf der Mattscheibe darge- 
stellt werden. Allerdings lassen sich diese sechzehn Farben 
nicht beliebig bestimmen. Die sechzehn Farben sind auf die 
sechzehn Grund-Farbwerte (0 bis 240 STEP 16) eingestellt. 
Nur die Helligkeit kann programmiert werden, gilt dann aber 
für alle sechzehn Farbtöne gleichzeitig. 


Spalten 80 (0 bis 79) 
Zeilen 192 (0 bis 191) 
Textfenster nicht möglich 


Auflösung 4 Bildpunkte breit 
1 Bildschirmzeile hoch 


Farbregister Helligkeit für alle Grafikpunkte 
Hintergrund und Rand (712) 


Register | SETCOLOR COLOR Grafikfenster 
POKE SE. c0. PLOT und DRAWTO 
712 4 0) 


Grafikp.hell/Hintergr. Farbe O0 
Grafikpunkt Farbe 16 
Grafikpunkt Farbe 32 

Grafikpunkte Farben 48 bis 224 

Grafikpunkt Farbe 240 






Mit dem folgenden Demonstrationsprogramm können Sie sich 
die Farbmöglichkeiten dieses Grafikmodus' ansehen. Es wird 
ein Testbild aufgebaut, das alle sechzehn Farbtöne zeigt. 
Die Diagonale in der Hintergrundfarbe (COLOR 0) zeigt die 
Größe des Grafikfensters. Der erste Farbbalken hat die Far- 
be des Hintergrundes und geht deshalb optisch im gleich- 
farbigen Bildschirmrand unter. 
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100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
250 
z40 
250 
260 
270 
280 
2909 
s00 
510 
320 


120: 
130: 
140: 
150: 
160: 
170 


REM GRIi1DEMO.BIR 
GRAFHICS ii 

FOR C=0 TO 15 
COLOR C 

FOR F=0 TO 4 
PLOT C#S5+F,0O 
DRAWTO C#S+F, 191 
NEXT F 

NEXT C 

COLOR 0 

FLOT 0,0 


DRAWTO 79,131 

FÜR H=Z TO 12 STEF 2 
POKE 712,H 

FOR FAUSE=0 TO 300 
NEXT FAUSE 

NEXT H 


FOR H=14 TO 0 STEF -Z 

FOKE 712,H 

FOR FAUSE=0 TO 300 

NEXT PRUSE 

NEXT H 

GOTO 220 

Diese Schleife geht mit C die Wert O0 bis 15 durch, die 
als COLOR-Wert aufruft. 

Fünf (0 bis 4) Grafikpunkte nebeneinander werden 
Linien vom oberen 


bis zum unteren Bildschirmrand gezogen. 


und 180: Und zwar nebeneinander in den verschiedenen 


COLOR-Werten O bis 15 


190 bis 210: ziehen eine Diagonale in der Hintergrundfarbe 
(COLOR 0) durch das Grafikfenster 


220: 
230: 
240 
260: 
270 
320: 


Hier werden die Helligkeitswerte aufsteigend gewählt, 
gePOKEt 


und 250: und nach einer Augenpause 


gewechselt. 


bis 310: lassen die Farben von dunkel nach hell laufen. 


Und hier beginnt der ganze Spaß von vorn. 


9 


2.2.12 GRAPHICS 12/28 


Dieser (und der folgende) Grafikmodus ist für die Darstellung 
gestalteter Zeichen vorgesehen und mit den Betriebsarten 
GR.I und 2 verwandt. Die technisch richtige Bezeichnung als 
Textbetriebsart ist jedoch etwas irreführend. Es können 
zwar die 256 Zeichen des Zeichensatzes aufgerufen werden, 
aber was auf der Mattscheibe ankommt, ist nur mit Mühe 
als Zeichen zu erkennen. 


Die Zeichen setzen sich aus Farbpunkten dreier verschiedner 
Farbtöne zusammen und zwar die erste Hälfte des Zeichen- 
satzes, also die Zeichen in normaler Darstellung, enthält 
Farbanteile aus den Registern 708, 709 und 710, während 
die Zeichen aus der zweiten Hälfte des Zeichensatzes, die 
inversen, von den Registern 708, 709 und 711 gefärbt wer- 
den. 


Spalten 40 (0 bis 39) 
Zeilen 24 (0 bis 23) oder 
20 plus 4 Zeilen Textfenster 


Auflösung 8 Bildpunkte breit 
8 Bildschirmzeilen hoch 


Farbregister normale Zeichen (708, 709, 710) 
inverse Zeichen (708, 709, 711) 
Hintergrund und Rand (712) 


SETCOLOR COLOR Grafikfenster Textfenster 
POKE PRINT#6 und PLOT PRINT 


alle Zeichen 





alle Zeichen Schrifthelligkeit 
normale Zeichen Farbton 


inverse Zeichen 


Hintergrund 
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Die Anwendung dieses Grafikganges ist eigentlich nur inter- 
essant, wenn dafür ein spezieller Zeichensatz definiert 
wird, der die farblichen Möglichkeiten in ihrer Wirkung 
einbezieht. Ist ein solcher anwendungsorientierter Zeichen- 
satz erst einmal erarbeitet, lassen sich damit allerdings sehr 
wirkungsvolle Grafikeffekte leicht und schnell-laufend pro- 
grammieren. 


Bescheiden wir uns also vorläufig damit anzuschauen, was 
diese beiden Grafikgänge aus den Daten des Standard- 
Zeichensatzes machen: 


10 GRAPHICS i2+16& 

20 FÜR Y=0 TO 25 

50 FOR X=0 T0 59 

4Dd DPEN #1,4,0,"K8" 

50 GET #1,T 

60 CLOSE #1 

70 COLOR 7 

80 FLOT X,Y 

390 NEXT X 

100 NEXT Y 

110 FOR Co TO 20 

120 POKE 712, PEEXN(7IE) +10 
150 FOKE 708, FEEK(708)+8 
140 POKE 709, FEEK (7O9) + 
150 FOKE 710, FEER (710) +4 
160 FOKE 71I1,FEERN (711) +6 
170 FÜR F=ü TO 4oco 

180 NEXT F 

130 NEXT C 

200 END 


20: Zeile um Zeile (0 bis 23) 
30: Spalte neben Spalte (O0 bis 39) 


40 bis 60: wird die Tastatur abgefragt, welche Taste ge- 
drückt wurde und dann mit 


70: COLOR das zugehörige Zeichen 
80: auf den Bildschirm gePLOTtet. 


110 bis 190: Wenn auf diese Weise der Bildschirm vollge- 
schrieben worden ist, werden die Farbwerte in den Farbre- 
gistern gewechselt. Und zwar wird in ein Register hineinge- 
schaut (PEEK(712)) ein Wert hinzugezählt (+12) und in das 
gleiche Register wieder hineingeschrieben (POKE 712,PEEK 
(712)+10). 
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2.2.13 GRAPHICS 13/29 


Die Angaben zu GRAPHICS 12 treffen auch auf diesen Grafik- 
modus zu. Der einzige Unterschied besteht in der Auflösung. 


Spalten 40 (0 bis 39) 
Zeilen 12 (O0 bis 11) oder 

10 plus 4 Zeilen Textfenster 
Auflösung 8 Bildpunkte breit 

16 Bildschirmzeilen hoch 
Farbregister normale Zeichen (708, 709, 710) 


inverse Zeichen (708, 709, 710) 


Register | SETCOLOR COLOR Grafikfenster Textfenster 
POKE SE. Cc0. PRINT#6 und PLOT PRINT 
alle Zeichen 
alle Zeichen Schrifthelligkeit 


normale Zeichen Farbton 


inverse Zeichen 





Hintergrund 


Das folgende Demonstrationsprogramm druckt den gesammten 
Zeichensatz auf den Bildschirm. Der Bediener kann die Aus- 
gabe kontrollieren. Erst nachdem eine beliebige Taste der 
Tastatur gedrückt wurde, wird das nächste Zeichen auf dem 
Bildschirm dargestellt. Eine Beziehung zwischen der ge- 
drückten Taste und dem dargestellten Zeichen gibt es bei 
diesem Programm (im Gegensatz zum vorherigen) nicht. 


Im Textfenster wird gleichzeitig der ATASCII-Wert und das 
Zeichen selbst in GR.O-Darstellung gezeigt. 


Wenn alle 400 Schreibpositionen vollgeschrieben sind, auf 
dem Bildschirm ist dann der komplette Zeichensatz etwa ein- 
undeinhalbmal zu sehen, werden die Farbwerte in den Farb- 
registern laufend gewechselt. 
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10 GRAPHICS 13 

20 FOR Y=0 TO 9 

30 FOR X=0 TO 33 

40 C=C+1 

50 IF C=125 THEN C=126 
60 IF C)255 THEN C=Ü-256 
70 COLOR Ü 

80 PLOT X,Y 

30 ? C,CHR$(C) 

100 OPEN #1,4,0, "Kr" 
110 BET #1, DUMMY 

120 CLOSE #1 


150 NEXT X 
140 NEXT Y 
150 FOR C=0 TO 14 
160 FOR H=0 TG 14 


170 FOR F=0 TO 4 

180 FOKE 7OB+F, HHC#16+4rH 
190 FOR FAUSE=Ü TO 300 
200 NEXT FRAUSE 

210 NEXT F 

220 NEXT H 

250 NEXT C 

240 GOTO 150 


20 und 30: gehen die Koordinaten aller Schreibpositionen 
nacheinander durch. 


40: zählt in die Variable C 


50: Der Wert von C wird als ATASCII-Wert verwendet werden 
und in Zeile 90 wird dieses Zeichen gePRINTet. ATASCII 125 
bezieht sich auf die CLEAR-Taste. Wird dieses Zeichen an 
den Bildschirm ausgegeben (PRINT) so wird der Bildschirm 
gelöscht. Um das zu vermeiden, wird in dieser Zeile der 
Wert 125 übersprungen. 


60: Da der Zeichensatz nur 256 Zeichen umfaßt, werden 
größere Werte von C hier entsprechend reduziert. D.h. beim 
256sten Durchlauf wird wieder das erste Zeichen aus dem 
Zeichensatz (ATASCII O = Herz) ausgegeben. 


90: CHR$(n) verwandelt n in das ATASCII-Zeichen n 


100 bis 120: Erst wenn irgendeine Taste gedrückt wurde, 
läuft das Programm weiter. 


150 bis 230: wechseln die Farbwerte in den Registern 708 
bis 708+4 (=712). 
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2.2.14 GRAPHICS 14/30 


Diese Auflösung ist fast so fein wie HIRES, bietet aber mehr 
Farbauswahl. 


Spalten 160 (0 bis 159) 
Zeilen 192 (0 bis 191) oder 

160 plus 4 Zeilen Textfenster 
Auflösung 2 Bildpunkte breit 

1 Bildschirmzeile hoch 
Farbregister Grafikpunkte (708) 


Hintergrund und Rand (712) 


Register | SETCOLOR COLOR Grafikfenster Textfenster 
POKE SE. co. PLOT und DRAWTO PRINT 


Grafikp./CO.1 


Schrifthelligkeit 


Farbton 


Hintergrund 





80 G=G+H1 

90 IF G=2 THEN 6=%0 
100 GRAFHICS 14+6Gr16 
110 FOR C=1 TO 5 

120 COLOR CE 

130 FLOT O+r4*l, © 

140 DRAWTO 147+4%*C, 191 
150 FLOT 147+4*C,0 
160 DRAWTO O+4x*C, 191 
170 NEXT C 

180 FOR F=0 TO 800 
190 NEXT F 

200 GOTO Bo 


(Erläuterungen auf der Nebenseite) 
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2.2.15 GRAPHICS 135/31 


Der Unterschied zu GR.14 besteht nur darin, daß vier Farb- 
töne definiert werden können. 


Spalten 160 (O0 bis 159) 
Zeilen 192 (O0 bis 191) oder 

160 plus 4 Zeilen Textfenster 
Auflösung 2 Bildpunkte breit 

1 Bildschirmzeile hoch 
Farbregister Grafikpunkte (708, 709, 710) 


Hintergrund und Rand (712) 


Grafikfenster Textfenster 
PLOT und DRAWTO PRINT 
Grafikp./CO.1 


Grafikp./CO.2 
Grafikp./CO.3 















Register | SETCOLOR COLOR 
POKE SE. co. 
708 0 1 

2 


Schrifthelligkeit 


mi 





Farbton 


Hintergrund 





Das Demonstrationsprogramm auf der linken Seite zeigt die 
Wirkung von GR.14 und 15. Die Variable G kann die Werte O 
und 1 annehmen. Dadurch wird in Zeile 100 GR.14 oder 
GR.14+1 (beide ohne Textfenster) eingeschaltet. Mit Farbe 1 
bis 3 werden dann diagonale Linien gezogen. Nach einer 
Pause wird der andere Grafikmodus eingeschaltet und werden 
erneut die Diagonalen gezogen. Wenn in Zeile 120 zu große 
COLOR-Werte auftreten, so führt das nicht zu einem Fehler, 
sondern der zu große Wert wird dividiert und der Rest be- 
stimmt den Farbwert. In GR.14 wirkt COLOR 2 wie COLOR 0, 
COLOR 3 wie COLOR 1. Das gilt übrigens grundsätzlich für 
den COLOR-Befehl. Probieren Sie folgendes Porgramm, in dem 
COLOR-Werte von 1 bis 40 aufgerufen werden!: 


3 GRAPHICS 3:FOR C=i TO 40:COLOR C:PLOT C-1,0:NEXT C 
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3 Wie die Bilder laufen 
iernen 


Gewöhnliche Computer-Grafik bezieht ihren Reiz aus der 
Ästhetik mathematischer Kurven, die als optischer Ausdruck 
reiner Zahlenstrukturen ein Wohlgefallen vermitteln. Diese 
Lust an der Reinheit der Form macht aber Computer-Grafik 
noch nicht zur Kunst. 


Eine neue Dimension bietet der Rechner als kreatives Medium 
mit der fortlaufenden Veränderung, mit sich prozessual ver- 
ändernden Bildern, eine Zwischenform von Grafik und Film, 
die aber zusätzlich die Möglichkeit bietet, daß der Betrach- 
ter über die Tastatur aktiv in das ablaufende ästhetische 
Geschehen eingreift. | 


Selbst mit recht einfachen Programmstrukturen lassen sich 
ganz ansehnliche Ereignisse auf den Flimmerkasten zaubern. 
Die farblich-grafischen Möglichkeiten des ATARI bieten immer 
neue Anregungen. Jedermann kann sich mit geringem Auf- 
wand so richtig gestalterisch austoben. 


Um mich in den folgenden Kapiteln nicht dauernd zu wieder- 
holen, möchte ich es hier und jetzt, ein für alle Mal sagen: 
Die Bei-Spiel-Programme sollen nur eine Anregung sein. Sie 
lernen am angenehmsten und schnellsten, wenn Sie herumex- 
perimentieren. Ändern Sie die Werte, Variablen, *'Farb-POKEs 
und Grafikmodi nach Herzenslust, und sehen Sie sich an, 
was dabei herauskommt! 


Der Computer ist ein Spielzeug. Er dient dem Spieltrieb von 
Wissenschaftlern, Technikern und Geschäftsleuten. Warum 
sollten sie nicht auch Ihren Spaß damit haben? 
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3.1 Druck-Grafik 


Die einfachste Methode, ein sich laufend veränderndes Bild 
zu erzeugen, besteht darin, Pseudografik-Zeichen wie einen 
fortlaufenden Text auf den Bildschirm zu ?en. 


Wir erzeugen per Zufall (ja und wie geht das?) ein Pseudo- 
grafik-Zeichen, PRINTen es, erzeugen das nächste usf. Da 
der Bildschirminhalt nach oben gescrollt wird (Denglisch: to 
scoll, scrollte, gescrollt: rollen) wenn er voll ist und unten 
endlos wechselnde Zeichen gePRINTet werden, ändert sich 
das Bild buchstäblich laufend. Tippen Sie mal: 


390 WAHL=INT(RND (0)*4) 

100 INVERS=RND (0) 

110 IF WAHL=O THEN ZEICHEN=9 

120 IF WAHL=I THEN ZEICHEN=11 

130 IF WAHL=Z THEN ZEICHEN=12 

140 IF WAHL=3 THEN ZEICHEN=15 

150 IF INVERS)O.S THEN ZEIHEN=ZEICHEN+128 
160 FRINT CHR$ (ZEICHEN): 

170 GOTO 40 


90: Hierwird der Zufall bemüht. Der Befehl dafür heißt RND 
(RaNDom). Hinter RND muß eine sog. Dummywert stehen; der 
Wert ist beliebig. Schreiben wir also RND(0). Dieser Befehl 
erzeugt einen zufälligen Wert zwischen O0 und 1, wobei der 
Wert 1 nie erreicht wird. Multipliziert man diese Zufalls- 
werte mit irgendeiner Zahl, nehmen wir 4, so erhält man 
Wert von O bis 3,99 Periode 9. Diese Dezimalbrüche wandeln 
wir in ganze (integer) Zahlen um, indem die Nachkomma- 
stellen (Sie denken ja daran, daß das Komma ein Punkt ist) 
unter den Teppich gekehrt werden. Das besorgt der Befehl 
INT(eger). Das BASIC-Kommando INT(RND(0)) ergibt also in 
zufälliger Folge Werte von O bis 3. Diese Zeile notiert den 
gefundenen Wert in der Variablen WAHL. 


100: In dieser Zeile spielen wir wieder mit dem Zufall. Die 
Variable INVERS erhält irgendeinen Wert größergleich 0 und 
kleiner 1. 


110 bis 140: Hier wird der Zufallswert in der Variablen 
WAHL genutzt, um der Variablen ZEICHEN Werte zuzuordnen. 
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150: bemüht die Variable INVERS, die in Zeile 100 mit RND(0) 
gefüllt wurde. Wenn die Variable INVERS einen größeren 
Wert als 0,5 (=US: 0.5) abbekommen haben sollte, dann soll 
der Wert von ZEICHEN um 128 erhöht werden. Sie erinnern 
sich, daß die ATASCII-Zeichen negativ daherkommen, wenn 
ihr Wert größer als 127 ist? Aha. 


160: Endlich ist es so weit. Ein ZEICHEN zufälliger WAHL 
wird INVERS oder nicht gePRINTet. Allerdings ist da noch 
ein kleines, aber wirklich nur ein kleines Problem. Wir 
haben gar keine (Pseudografik-) Zeichen, sondern nur einen 
schäbigen Variablenwert (9, 11, 12 oder 15). CHR$(n) 
wandelt den numerischen Wert n in das ATASCII-Zeichen n 
um. Dazu gibts nebenbei gesagt auch einen Umkehrbefehl: 
ASC("A") liefert den ATASCII-Wert von A (=65). Beachten Sie 
in dieser Zeile auch das ; am Ende. Unscheinbar wie es 
ist, verhindert es doch, daß der Cursor davoneilt. So wird 
schön brav ein Zeichen hinter das andere gedruckt, bis die 
Zeile voll ist. Dann kommt die nächste ran. Apropos ran, 
geben Sie doch endlich RUN! 


O.K., berauschend finde ich das auch nicht, aber das ist 
ja auch erst der Anfang: 


10 POKE 710, 0:ROKE 709,0 

20 POKE 82,0 

30 FOKE 752,1 

40 ZAEHL=ZAEHL+1 

so IF ZAEHL=240 THEN ZAEHL=O:FARB=FARB+1 
60 IF FARE=16 THEN FARB=0O 

70 FOKE 710, FARB#+16+6 

80 FOKE 709, FARB 


10: Neue Farben. 
20: Randfrage. Links auf O 


30: schickt den flatterigen Cursor zum Teufel. 


40: Jetzt nehmen wir einen ZAEHLknecht. Bei jedem Durchlauf 
zählt er I höher, aber erst wenn in Zeile 


50: ZAEHL auf 240 angeschwollen ist, hat das Folgen. ZAEHL 
wird auf O0 degradiert, aber jetzt kann der Rest der Zeile 
abgearbeitet werden und das heißt für FARB I rauf. 


(Der Wert 240 wurde gewählt, weil er sechs Zeilen ä 40 
Zeichen entspricht. Ich erwähne das nur, damit Sie sehen, 
daß ich mir auch Gedanken mache.) 


60: FARB werden aber nur Werte bis 16 erlaubt. 
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70: Jetzt kommt FARBe ins Spiel. In Register 710 wird ein 
Farbwert gePOKEt. Sie erinnern sich, daß der ATARI sech- 
zehn Farbtöne bereithält, die durch Zahlenwerte dargestellt 
werden, die durch 16 teilbar sind. Zu diesen Werten wird 
die Helligkeit als gerade Zahl addiert. Wir zählen zu 
FARB*16 die Helligkeit 6 hinzu, einen gemäßigten Wert der 
Mitte. 


80: POKEt den Wert FARB in das Register 709 (Schrifthellig- 
keit). Da hier nur die Helligkeit definiert werden kann, ist 
es gleichgültig, welcher Farbwert (Vielfaches von 16) hier 
steht. 


Bei jedem 240sten Programmdurchlauf, also alle sechs Bild- 
schirmzeilen, wird (falls Sie das Programm wirklich einge- 
tippt und ein RUN gegeben haben) die Farbe des Hinter- 
grundes gewechselt. Die Helligkeit der Zeichen wechselt nur 
jede zwölfte Zeile. Warum? 


Wenn übrigens in Zeile 80 ein Helligkeitswert erreicht wird, 
der mit der Helligkeit der Hintergrundfarbe identisch ist, 
dann sollten Sie sich nicht wundern, wenn Sie nichts sehen, 
jedenfalls keine Zeichen. 


Da hier kein Quiz veranstaltet wird (warum eigentlich 
nicht?), hier die Auflösung der obigen Frage. Wenn Sie bis 
hierher gelesen haben, denken Sie ja doch nicht darüber 
nach: Mit Ausnahme von GR.9 sind nur gerade Werte für die 
Helligkeit gefragt. Ungerade Werte nimmt der Computer zwar 
nicht krumm, läßt sie aber links liegen. FARB muß also 
gerade sein, um in Zeile 80 etwas auszurichten. 


Der Hobbytip: Setzen Sie in 110 bis 140 andere Werte ein, 
stellen Sie mehr Zeichen zur Auswahl (Multiplikator in Zeile 
90 zu erhöhen vergessen), lassen Sie die Farben tanzen. 


Und so umgehen Sie CHR$(n) in Zeile 160: Schreiben Sie in 
110 bis 140 statt der numerischen Variablen ZEICHEN die 
String-Variable ZEICHEN$. Natürlich muß die irgendwo vor- 
her, am besten schon in Zeile 10 DIMensioniert worden sein. 
Sie können dann das Zeichen als Stirng eingeben ("z"). Die 
Pseudogräfik-Zeichen erreichen Sie über die Tastatur, indem 
Sie die Taste CONTROL und eine Buchstabentaste gleichzeitig 
drücken. In Zeile 160 muß es dann heißen PRINT ZEICHEN$;. 
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3.2 Zufallslösung 


Ehrlich gesagt, besonders beeindruckend war die endlose 
Pseudografik im letzten Abschnitt nicht, oder? Es wird halt 
immer nur am unteren Rand etwas angefügt und oben ver- 
schwindet Zeile um Zeile. Es wäre schon wirkungsvoller, ein 
stehendes Bild zu haben, das sich ständig verändert. 


Aber nichts leichter als das! Statt fortlaufend zu PRINTen, 
können wir das zufällig ausgewählte Zeichen ja auch an 
eine zufällig auserwählte Stelle des Bildschirms POS.itionieren 
und PRINTen. 


Hausaufgabe: Ergänzen und verändern Sie das vorherige 
Programmbeispiel entsprechend. 


Wieso lesen Sie denn jetzt hier weiter. Hatte ich Ihnen nicht 
gesagt, Sie sollen das Programm umschreiben? 


Na also! Ich setze mal voraus, daß Sie Ihr umgeschriebenes 
Programm tatsächlich zum Laufen gebracht haben. Dann 
wissen Sie jetzt auch, daß ich Recht habe, wenn ich be- 
haupte, daß das nicht besonders wirkungsvoll aussieht. Es 
tut sich zu wenig. 


Deshalb lassen Sie uns nun endlich in die farbige Fülle des 
ATAR|I greifen: 

10 GRAFHICS S+i6& 

60 X=INT(RND (0) 840) 

70 Y=INT(RND(O)#Z4) 

80 C=INT(RND(O) #5) 

30 COLOR CHl 

100 FLOT %X,Y 

110 GOTD 60 

10: schaltet GRAPHICS 3 ein und das Textfester aus. Sie 
wissen natürlich längst, daß Sie den Wert auch selbst ad- 


dieren dürfen (3+16=32, nur für den Fall, daß Sie keinen 
Taschenrechner zur Hand haben) 


60: Hier wird ein zufälliger Wert zwischen O0 und 39 ausge- 
wählt (das kennen Sie ja schon) und das entspricht rein 
zufällig den möglichen Spaltenpositionen (0 bis 39) 


70: Das gleiche geschieht hier mit den Zeilenpositionen. 
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80: Schließlich lassen wir Freund Computer noch einen Wert 
zwischen O0 und 2 auswürfeln, der in Zeile 


90: für Farbe sorgt. Da für Grafikpunkte die Register 708, 
709 und 710 verantwortlich sind und die mit den Werten 
COLOR 1, 2 und 3 aufgerufen werden, muß die Variable C 
um den Wert 1 erhöht werden. Diese Addition hätte natürlich 
auch schon in Zeile 80 untergebracht werden können, so daß 
C Werte von 1 bis 3 erhält. 


100: PLOTtet einen Grafikpunkt in der Farbe C+1 an die vom 
RND-Schicksal vorbestimmte Stelle X,Y. 


110: Ein Grafikpunkt wäre geschafft. Jetzt schnell zurück 
nach 60 und den nächsten Punkt zusammengebraut. 


Wenn Sie das Programm RUNnen, regnet es Farbe, aber viel 
Geschmack beweist der Maler nicht. Wir haben eben noch die 
Standard-Techniker-Farben im Malkasten. Wird Zeit, daß wir 
uns einen neuen POKEn: 


20 DOKE 708,32 
30 POKE 709,2 
40 FOKE 710,64 


RUN! Sieht das nicht gruselig schön aus? Und probieren Sie 
auch die Werte 50, 52, 56 - das ersetzt jeden teuren Kamin. 
16, 34 und 194 sind aber auch nicht zu verachten. Bedenken 
Sie, aus 128 Farbtönen können Sie wählen, drei Farben ste- 
hen Ihnen zur Verfügung (wenn wir den Hintergrund mal 
nicht mitzählen), d.h. Sie können in 128*128*128 Farbkom- 
binationen schwelgen, das sind immerhin 2.097.152 Farb- 
dreiklänge. Und die können wiederum auf 128 verschiedenen 
Hintergründen erscheinen, das macht mehr als 268 Mio. Zu- 
sammensetzungen (unbedingt nachrechnen!) 


Die Zeile 50 habe ich für Sie freigehalten, damit Sie sich 
hier an den Hintergrund heranmachen können. Die Farb- 
wirkung der Grafikpunkte ändert sich scheinbar, wenn die 
Farbe des Hintergrundes wechselt. 


Wenn Sie Lust haben anzuschauen, was das Farbspektakel 
bei feinerer Auflösung bietet, dann: 


10 GRAFHICS 5+16 
>0 LOKE 708,34 

30 POKE 709, 100 

4) POKE 710,210 

60 X=INT (RND (0) #80) 
70 Y=INT(RND(0)%*48) 
80 C=INT(RND(0)*3) 
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30 COLOR C+1 
100 FLOT X,Y 
ı11D GOTO 60 


10: schaltet Grafik Nr. 5 ohne Textfenster ein. 
20 bis 40: ein neues Farberlebnis! 


60: Der größeren Auflösung entsprechend müssen hier Werte 
von O bis 79 möglich gemacht werden. 


70: Das gilt natürlich auch für die Zeilen-Werte. 


Die übrigen Zeilen bleiben die gleichen. Es wäre also ganz 
intelligent, wenn sie nicht das ganze Listing neu abtippen, 
sondern die Werte im vorhergehenden Programm ändern. 


Und wenn Sie jetzt auf den Geschmack gekommen sind: 


10 GRAFHICS 7+16 

„0 FÜKE 708,2 

50 FOKE 709,4 

40 FOKE 710,10 

60 X=INT (RND (0) #160) 
709 Y=INT (RND (0) x96) 
80 C=INT (RND (0) *5) 
30 COLOR C+1 

100 PLOT X,Y 

ı10 GOTO 60 


Hier flimmert GRAPHICS 23 über die Scheibe und Sie sehen, 
daß die feinere Auflösung nicht immer auch wirkungsvoller 
ist. Sie meinen, das liegt an den Farben, die ich Ihnen 
vorprogrammiert habe? Tippen Sie LIST 20,40 und RETURN- 
Taste und setzen Sie Ihre Farbwerte ein. 


Nun, auch dieses Farbgesprenkel sieht so aus wie es ist: 
zufällig, und das wirkt nicht besonders ästhetisch auf uns. 
Erst wenn ein gewisses Maß an Harmonie sichtbar wird, 
empfinden wir ein Wohlgefallen. 


Wie sich ein wenig Ordnung auswirken kann, zeigt Ihnen 
das nächste Programm. Hier wird zwar auch die Veränderung 
durch zufällige Werte bewirkt, aber das Programm stellt 
einen Bezug zur senkrechten und waagerechten Mittelachse 
her. So werden durch einen Zufallswert vier Punkte gefun- 
den, die alle den gleichen Abstand vom Bildzentrum haben. 
Auf diese Weise kommt ein Gestaltungsprinzip ins Bild. Äber 
bevor wir weiter über Ästhetik und Computerkunst plaudern, 
hier erst einmal das Listing: 
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10 

20 

=O 

40 

30 

6) 

70 

30 

FI 

100 
110 
120 
1.50 
140 
130 
160 
170 
180 
190 
ZOO 
10 
EU 
ARE 
Zu 
Pi) 
>&0 
io 
280 
Pe 1 
Son 
5102 
520 
ld 
sau 
te 1®) 
Sal) 
570 
580 
10) 
AON 
410 
4ZO 
450 
440 
SU 
460 
470 


GRAFHICS ZI 

ec=O 

FOkKE 712,0:FOKE 708,16 
COLOR 1 


x1=59 

x“2=539 

x53=59 

xX4=393 

Yi=23 

Yz=25 

Ya=E3 

Ya=25 

A=INTCRND (O)*7) +5 
EBE=INT(RND (O)*#7) +5 
C=INT(CRND<(O)#Z) +1 
D=INT(CRND (oO) #2) +1 
IF C=1 THEN E-i 
IF C=Z THEN E=-1 
IF D=i THEN F=1 
IF D=Z THEN F=-i 
G=A#E 

H=-RB*F 

Gi=X1+6 

G2=X2+G 

563=X5-6G 

G4=XA4-G 

Hi=Yi1+H 

H2=-YZ-H 

H3=YS—H 

Ha=Y4arH 

IF G1)79 THEN 150 
IF Gi (0 THEN 150 
IF 52)73 THEN 130 
IF GE<(O THEN 150 
IF 5310 THEN 130 
IF 55)79 THEN 130 
IF GA<0 THEN 130 
IF 5479 THEN 1350 
IF H1?>47 THEN 140 
IF Hi1{0 THEN 140 
IF HE<O THEN 140 
IF H2)347 THEN 140 
IF HS<O THEN 140 
IF H3>47 THEN 140 
 H4)a7 THEN 140 
IF HAa<0 THEN 140 
FLOT G1,Hi 
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480 DRAWTO 62, H2 
430 DRAWTO 65, HZ 
500 DRAWTO G4,H4 
10 DRAWTO G1,Hi 


520 X1=G1 
E30 X2=G2 
540 X3=63 
550 X4=B4 
560 Yi=Hl 
570 Y2=H2 
580 YI=H3 
590 Y4=H4 


600 PR=RND (0) 
610 IF FR<O.8 THEN 130 

620 FF=FF+1 

630 IF FF=4 THEN FF=0 

640 COLOR FF 

550 P=RND (0) 

660 IF PXO0.7 THEN GOTO 130 

670 AA=AA+1 

680 IF AA)Z THEN An=d 

530 CO=INT(RND(O)#9) «2 

700 COL=COL+CO+CC 

710 IF COL)2SS THEN COL=COL-256 
720 POKE 708+AA, COL 

730 G0TO 150 


10: schaltet GRAPHICS 5 ohne Textfenster ein. Damit stehen 
drei Farben für Grafikpunkte und eine für den Hintergrund 
zur Verfügung. Die Auflösung beträgt 79 Spalten und 47 
Zeilen, 


20: Eine numerische Variable auf O0 zu setzen ist überflüssig, 
diese Zeile erlaubt Ihnen jeodch, verschiedene Anfangswerte 
für die Farben zu wählen, denn die Variable CC wirkt am 
Ende des Programms mit auf den Farbwert ein. Experimen- 
tieren Sie mit verschiedenen Werten! 


30: bestimmt als Hintergrundfarbe (712) Schwarz (0) und für 
Register 708 den Wert 16 (Standardfarbe I = Purpur). 


40: COLOR 1 ruft diese Farbe auf. 


50 bis 80: Die Spalte 39 wird als Mittelpunkt gewählt, den 
Variablen X1 bis X3 wird dieser Wert zugeordnet. 


90 bis 120: Als mittlere Zeile wird 23 genommen. Die Vari- 
ablen Yli bis Y4 bekommen diesen Wert. Damit haben wir 
vier Variablenpaare (Xn,Yn), mit denen vier Punkte auf dem 
Bildschirm bestimmt werden können. Der Anfangswert für 
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diese Variablenpaare ist der Mittelpunkt des Grafikfensters. 


130: Hier wird ein Zufallswert zwischen 5 (0+5) und 11 (6+5) 
gewählt und in der Variablen A aufgehoben. In der näch- 
sten Zeile 


140: geschieht das gleiche für B. 
150: RaNDomt für C einen Wert von 1 oder 2 und 
160: desgleichen für D. 


170: fragt die Variable C ab. IF C gleich 1 ist, THEN soll 
E den Wert I erhalten. Für die zweite Möglichkeit ordnet 


180: E den Wert -1 zu. 
190 und 200: spielen das gleiche Spiel mit F. 


210: Hier wird nun die viele Vorarbeit genutzt. Der zufällige 
Wert A wird mit dem zufälligen Wert E multipliziert. Da E 
nur +1 oder -I sein kann, bestimmt E das Vorzeichen für A. 
Das Ergebnis wird in G gespeichert. 


220: So geschieht es auch H, die aus B und F zusammen- 
komponiert wird. 


230 bis 260: Die Werte von X1 bis X4 werden durch Addition 
/Subtraktion von G verändert, die Ergebnisse in den Vari- 
ablen G1 bis G4 notiert. Und in den Zeilen 


270 bis 300: geschieht es ebenso für Hl bis H4. 


Die Variablenpaare G1,HlI bis G4,H4 bestimmen vier Punkte 
im Grafikfenster, die gleiche Entfernungen von den Ur- 
sprungskoordinaten X1,Y1l bis X4,Y4 haben, alle zweimal vier 
Punkte liegen also symmetrisch zur senkrechten und waage- 
rechten Achse. 


Die Grafik auf der folgenden Seite zeigt Ihnen eine mögliche 
Situation an diesem Punkt der Abarbeitung des Programms. 
Die Koordinatenvariablen X1,Yi bis X4,Y4 waren anfangs auf 
den Mittelpunkt (39,23) gesetzt, sie erscheinen als nur ein 
Punkt, der der Einfachheit halber mit %X,Y bezeichnet wurde. 
Die Pfeile deuten an, wie durch die Variablen G und H die 
Position dieses Punktes im Grafikfenster verändert wird. 


Jetzt muß noch Vorsorge getroffen werden, daß die neu er- 
mittelten Variablen Gl bis G4 und HI bis H4 keine Werte 
annehmen können, die größer oder kleiner sind als die 
zulässigen Bildschirmpositionen (Spalten O bis 79 und Zeilen 
0 bis 47), damit das Programm nicht mit ERROR- 141 (Cursor- 
Position unzulässig) abgebrochen wird. 
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310 bis 380: fragen diese Bedingungen ab und führen ggf. 
nach Zeile 130 zurück, damit neue Zufallswerte ermittelt 
werden. 


390 bis 460: testen auf gleiche Weise die Variablen HI bis 
H4. Hier genügt ein Rücksprung nach 140, denn wenn das 
Programm bis hierher vorgedrungen ist, muß der für A ge- 
fundene Wert im zulässigen Rahmen liegen. (Der Wert für C 
eigentlich auch. Es wäre also intelligenter gewesen, wenn 
ich die Zeilen 140 und 150 vertauscht hätte und der Rück- 
sprung hier wäre auf 150 gesetzt.) 


Durch diese Rücksprünge wird natürlich Zeit verbraucht. 
Besonders wenn es der Zufall will, daß mehrmals hinterein- 
ander unerwünschte Werte gezogen werden, tritt eine spür- 
bare Verzögerung ein. Wenn das Programm läuft, können Sie 
beobachten, daß die Veränderungen ruckweise, in unter- 
schiedlichen Intervallen, erfolgen. 


Es wäre deshalb sinnvoller, die Programmblöcke anders an- 
zuordnen und alle Zeilen, die sich auf die Ermittlung der 
Koordinaten beziehen, an den Beginn des Programms zu 
legen. Damit würde die Rücksprungweite verkürzt und bei 
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jedem notwendigen Rücksprung würden weniger unnötige 
Zeilen abgearbeitet. Dieses Problem wird in einem späteren 
Kapitel noch einmal aufgegriffen. Diese Anordnung dient der 
besseren Übersicht. 


Endlich sind nun die Koordinaten für vier neue Punkte 
ermittelt. In Zeile 


470: wird nun der erste Punkt G1,HI gePLOTtet, dann 
480: wird eine Linie nach G2,H2 gezogen und 

490: weiter über G3,H3 nach 

500: nach G4,H4. 


510: Damit ein Rechteck daraus wird, gehts dann noch 
zurück nach G1,HlI. Aber nicht genug damit! In den Zeilen 


520 bis 590: werden die Koordinaten der neu ermittelten 
Punkte in den Variablen X1 bis X4 und YI bis Y4 aufbe- 
wahrt. Wenn beim nächsten Programmdurchlauf neue Werte 
für G1,HlI bis G4,H4 ermittelt werden, dann befinden sich 
die alten Werte aus diesem Durchlauf in den Variablen 
X1,Yl bis X4,Y4. Für dieses Programm ist das ohne weitere 
Wirkung und könnte unterbleiben. Sie werden aber noch 
bestaunen können, was sich damit zaubern läßt, wenn wir 
diese Programmstruktur verändern. 


Der nächste Programmblock knöpft sich die Farbe vor. Es 
ist ja langweilig, nur einen Farbton zu sehen, wenn wir 
doch drei gleichzeitig darstellen können. Außerdem wäre bei 
nur einer Farbe bald das ganze Grafikfenster vollgePLOTtet 
und wir würden gar nichts mehr sehen. In Zeile 


600: wird eine Bedingung für den Farbwechsel geschaffen. 
Der Variablen PP (jetzt fragen Sie mich aber nicht, warum 
ich die PP genannt habe) wird ein RND-Wert zugeordnet. 


610: Wenn dieser Wert kleiner als 0,8 (0.8!) ist, bleibt 
alles beim alten mit der Farbe. IF aber nicht, THEN findet 
kein Rücksprung nach 130 statt und es geht weiter mit Zeile 


620: wo FF um 1 vergrößert wird. 


630: Da wir im weiteren Verlauf für FF nur Werte von 0 bis 
3 gebrauchen können, werden größere Werte hier verhindert. 


640: taucht den Pinsel in COLOR FF. Wurde der Bildschirm 
also bislang in COLOR 1 bestrichen, wird ab sofort COLOR 2 
verwendet. Die alten Spuren von Farbe 1 bleiben natürlich 
stehen, bis sie übergepinselt werden. 


Wenn es dann das nächste Mal der Zufall will, wird auf 
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Farbe 3 umgeschaltet. Und weil dann unsere Flimmerleinwand 
langsam von Farbe trieft, kommt beim nächsten Farbwechsel 
der Schwamm: Farbe O0 (Hintergrund) schafft optischen Platz 
für neue Farbanstriche. 


Bis hierhin wechseln sich also die vier definierten Farbtöne 
in zufälligen Intervallen ab. Fügen Sie die Zeile 


645 GOTO 150 


ein, um den letzten Programmblock abzuhängen, und Sie 
können schon mal einen Probelauf auf sich wirken lassen - 
vorausgesetzt, Sie haben keine Tippfehler gemacht. Sie 
sehen, daß der Farbwechsel schnell langweilig wird. Unsere 
nervöse Aufmerksamkeit braucht ständig neue Anregung. 
Deshalb folgt ein weiterer Geniestreich (645 wieder löschen!): 


650: Der Zufall wird noch einmal bemüht und in P verbucht. 


660: IF der Wert P kleiner als 0,7 THEN Niete, zurück nach 
130. (Sie erinnern sich: Das GOTO hinter THEN darf fortge- 
lassen werden.) 


670: Ganz statistisch betrachtet ist der zufällige Wert P in 
70% aller (Zu-) Fälle größer als 0,7 und in 30% aller Fälle 
kleiner. Also etwa bei jedem dritten Mal, bei dem das Pro- 
gramm bis in diese Zeile vordringt, wird AA um 1 erhöht. 


680: Da für AA nur Werte von O bis 2 erwünscht sind, wer- 
der größere Werte hier verhindert. 


690: Unter Beihilfe des Zufalls wird ein Wert ermittelt, der 
als Zuschlag für den Farbwert verwendet werden soll. Da 
nur gerade Farbwerte wirksam sind, wird mit 2 multipliziert, 
der Zuschlag kann also gerade Werte von O bis 16 annehmen. 


700: rechnet CO der Variablen COL hinzu. Hier findet sich 
auch die Variable CC wieder, die wir in Zeile 20 kennenge- 
lernt hatten. 


710: sorgt dafür, daß keine unzulässigen Farbwerte durch 
die fortwährende Addition erreicht werden. Wann immer COL 
größer als 255 wird (hier könnte auch 254 stehen), wird 256 
abgezogen. Hier könnte natürlich auch die Bedingung stehen, 
COL auf O0 zurückzusetzen, das würde aber zur Folge haben, 
daß immer bei Schwarz (0) neu begonnen würde. 


720: POKEt nun den mühsam zusammenprogrammierten Wert 
COL in das Farbregister 708+AA. Beim ersten Durchlauf hat 
AA den Wert 1, der Wert COL landet also in Register 708+1 
(=709). Deswegen brauchten wir in Zeile 30 auch nur einen 
Farbwert für 708 zu programmieren. Beim zweiten Durchlauf 
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wird der Farbwert in Register 710 verändert. Dann kommt 
AA mit dem Wert 0, als viertes ist also Register 708 dran 
usf. Übrigens: Wenn der Farbwert in einem Register umge- 
POKEt wird, wechseln alle Grafikpunkte auf der Mattscheibe, 
die ihren Wert aus diesem Register beziehen, schlagartig die 
Farbe. 


730: Puh! Geschafft. Gehe nach 130 zurück und such die 
Werte für das nächste Rechteck zusammen. 


Also jetzt muß ich sie erstmal loben, daß Sie bis hierher 
durchgehalten haben. War der Happen zu groß? 


Auf jeden Fall haben Sie sich jetzt eine Erholung verdient. 
Spielen sie ein bißchen mit den Werten in der Variablen CC, 
ändern Sie den Multiplikator in Zeilen 130 und 140 und die 
Bedingungen für P und PP. Ändern Sie auch Zeile 680, so 
daß auch die Farbe für den Hintergrund gewechselt wird. 
Das ist gar nicht so einfach, weil dieser Wert in der Adresse 
712 zuhause ist, also nach 710 der übernächsten. Mein Tip: 
der Maschine ist es völlig schnuppe, wenn zwischendurch 
ein Wert in 711 abgelegt wird, denn das Register wird hier 
in diesem Grafikmodus nicht abgefragt und hat auch keine 
andere Funktion. 


So, nun lehnen Sie sich gemütlich in Ihrem Programmiersessel 
zurück und lassen den meditativen Genuß dieses einmaligen 
Grafikprogrammes auf sich wirken. Ah. 


Aber was ist denn jetzt los! Nach etwa sieben, acht Minuten 
stillen Genusses ist auf dem Bildschirm plötzlich der Teufel 
los. Andauernd wechseln die Farben. Ist der Computer ka- 
putt oder der Fernsehkasten oder was. Dahin ist die wohl- 
verdiente Ruhe. 


Grund dieser Störung ist die Sorge, die sich ATARI um Ihr 
kostbares Farbfernsehgerät macht (wie aufmerksam). Wenn 
eine bestimmte Zeit lang keine Eingabe über die Tastatur 
erfolgt, wird die bildschirmstrapazierende Helligkeit etwas 
reduziert und in recht kurzen Intervallen werden die Farb- 
werte über alle Register gewechselt. Damit soll verhindert 
werden, daß ein zu lange stehendes Bild in die Röhre ein- 
brennt. 


Bei einem Bildschirminhalt, der sich ständig ändert ist das 
übertriebene Fürsorge. Aber das System ist nun einmal so 
eingestellt. 


Die wenigsten Programme laufen länger als acht Minuten. 
Wenn Sie aber ein Programm haben, das so lange ohne Ein- 
gaben über die Tastatur läuft, z.B. ein Spiel, das über 
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Joystick gesteuert wird, dann können Sie diesen Bildschirm- 
schoner abschalten. Und das geht so: 


Die Adresse 77 ist der Auslöser für den Schongang. Bei 
jeder Tastatureingabe wird hier der Wert O abgelegt. Der 
Wert in dieser Adresse vergrößert sich von selbst kontinuier- 
lich. Wird irgendeine Taste des Keyboard gedrückt, springt 
der Wert auf 0 zurück und fängt von vorne an zu zählen. 
Wird aber ungestört der Wert 128 erreicht und das dauert 
etwa sieben bis acht Minuten, ergeht der Impuls an die 
Schonroutine. Glauben Sie nicht?: 


20 ? PEEK(77) :CHR$ (127): 
30 GOTO 20 


20: fragt das Register 77 ab und druckt den Wert für uns 
aus, damit wir sehen können, was darin vorgeht. Die An- 
Weisung ? CHR$(127); löst einen Sprung zum nächsten 
Tabulatorstop aus. 


30: führt nach 20 zurück. 


Wenn Sie diese beiden Zeilen starten, sehen Sie Nullen, 


nichts als Nullen und nach einer Weile Einsen, lauter 
Einsen, schließlich Zweien und so fort. Wenn Sie dann 
irgendeine Taste drücken, schwupp, Nullen, lauter Nullen, 


und dann wieder Einsen ... 


So und nun gehen Sie mal in Ruhe einen Kaffe trinken und 
schauen in ca. sieben Minuten wieder rein, was dann los 
ist. 


Und hier noch ein: Logischer Verweis. 


Möglicherweise gibt es unter den Lesern dieser wichtigen 
Publikation ein paar Schlaumeier, die sich mit gerunzelter 
Stirn im obigen Grafikprogramm die Zeilen 170 bis 300 
ansehen und dann zu dem klugen Schluß gelangen (den ich 
in aller Bescheidenheit auch zu ziehen mir erlaubte), daß 
es ganz überflüssig sei, mit den Variablen E und F Vorzei- 
chen für die Werte G und H zu ermitteln, wenn in den 
Zeilen 230 bis 300 G und H mal addiert, mal subtrahiert 
werden. Wird dadurch nicht ein negatives oder positives 
Vorzeichen aufgehoben? Probieren Sie es aus. (Ich hab mir 
die Mühe schließlich auch gemacht.) Löschen Sie die Zeilen 
150 bis 200 und ändern Sie 210 und 220, indem Sie die 
Faktoren E und F wegnehmen. Klar, Sie können auch die 
Zeilen 210 und 220 löschen, aber dann müssen Sie in 230 
bis 300 die Gs und Hs durch As und Bs ersetzen und das 
ist viel mehr Arbeit. 
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Also RUN. 


Was geschieht? Leider ist dies kein Rätselbuch, dann könnte 
ich die Antwort irgendwo am Schluß verstecken oder ganz 
für mich behalten. Äber so? 


Warum werden nur zwei, drei Rechtecke gezogen und dann 
geht nichts mehr? Zu den Werten von Xi bis X4 und YI bis 
Y4 wird immer nur etwas hinzugezählt und nach zwei bis 
drei Additionen sind sie so groß, daß das Programm in den 
Kontrollzeilen 310 bis 460 immer wieder nach 130 bzw. 140 
zurückgeführt wird. Der Rechner ist fleißig am arbeiten, 
findet nur keine Bedingung mehr, die zu einer Ausgabe 
führt und auf der Mattscheibe ist absolute Windstille. So 
kann man reinfallen. 


Wenn Sie sich nun von den Programmieranstrengungen erholt 
haben, dann kann es ja weitergehen? Ich möchte Ihnen 
nämlich zu gerne demonstrieren, wie verschiedenartige 
Wirkungen sich aus so einer Programmstruktur herausholen 
lassen, wenn man nur wenige Kleinigkeiten ändert. (Das ist 
eine versteckte Aufforderung, doch selbst ein wenig herum- 
zuprobieren.) 


Wenn Sie das vorangegangene Listing noch im Computer 
haben (oder vielleicht abgespeichert auf Band oder Diskette), 
dann brauchen Sie nur mit dem folgenden Listing zu 
vergleichen und die neuen Werte einzusetzen: 


10 GRAFHICS 24 
50 FPOKE 710,0 


40 COLOR 1 
50 X1=159 
60 X2=159 
70 X35=159 
80 X4=159 
30 Y1=95 

100 Yz=35 
110 Y3=935 
120 Ya=95 


150 A=INT CRND (O) #5) *9 
140 B=INT(RND(O)I%#5) *9 
150 C=INT(RND(O) «ZI +1 
160 D=INT(RND(O)*ZI +1 
170 IF C=i1 THEN E=1 
180 IF C=Z THEN E=-1 
190 IF D=1i THEN F=eil 
00 IF D=Z THEN F=-1 
210 G=A#E 
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220 H=B+#F 

250 Gl=X1+6 

za GZ=X2+G 

et) s=X5-G 

260) G4=X4a-G 

x7O Hil=Yi+H 

280 H2=Y2-H 

“90 H3=-Y3-H 

S0O0 H4=Y4-+H 

510 IF G1>519 THEN 1350 
520 IF G1l<(O THEN 150 
350 IF 56273519 THEN 130 
ao IF G2(0O THEN 130 
»s0 IF 630 THEN 130 
Ss60 IF 6573519 THEN 1350 
wen IF 540 THEN 130 
580 IF 643519 THEN 1350 
s30 IF H1}191 THEN 140 
4ön IF H1<0O THEN 140 
4io IF H2<(0O THEN 140 
z0 IF H2>191 THEN 140 
45350 IF H3(0 THEN 140 
440 IF H31931 THEN 140 
as IF HMH4> 1931 THEN 140 
460 IF HA(O THEN 140 
470 FLOT Gi,Hil 

483m DRAWTO G2Z, Hz 

430 DRAWTO 63, H5 

SON DRAWTO G4,H4 

„10 DRAWTO G1,Hl 

sel X1=Gi 

SO XZ=GE 

sun) X3=0G5 

wo0D Xa=Gu 

„b0 Yıi=Hl 

“70 Ya=Hz 

sen Y3=H5 

GHI0 Ya=Hd4 

OD CO=CO+ 

=,0 IF CODSO THEN 6350 
620 GOTO 150 

30 COLOR OÖ 

640 IF CO 100 THEN COLOR 1:C00=0 
650 GOTO 1350 
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10: fordert GR.8+116 auf, in Aktion zu treten. Da hier die 
Auflösung anders ist, nämlich 320 mal 192, müssen in den Zeilen 


50 bis 120: die Werte geändert werden, die den Bezug zum 
Mittelpunkt herstellen. Auch in den Zeilen 


120 bis 130: ist eine Änderung angebracht. Da die Auflösung 
sehr fein ist, werden die Zufallswerte mit 9 multipliziert, 
was zur Folge hat, daß nur jede neunte Spalte bzw. Zeile 
des Grafikfensters angesprochen werden kann. Hier haben 
Sie ein breites Betätigungsfeld für eigene Versuche. Andern 
Sie den Multiplikator für den RND-Wert (jetzt 5) und/oder 
den angehängten Multiplikator (jetzt 9). Sie können diesen 
angehängten Multiplikator aber auch fortfallen lassen und 
dafür die Bandbreite der möglichen Zufallswerte erhöhen, z. 
B. auf RND(0)*45. Dadurch würde das starre Schema der 
Linien etwas mehr aufgelockert. 


170 bis 300: bleiben wie gehabt und in 


310 bis 460: müssen nur die Grenzwerte der feineren Auf- 
lösung angepaßt werden. In 


470 bis 510: wird dann wieder das Rechteck gezogen. 


520 bis 590: werden noch immer nicht genutzt, aber das 
kommt bald. 


Im letzten Programmteil gibt es erhebliche Änderungen, denn 
GR.8 erlaubt nur die Wahl eines Farbtones für das Grafik- 
fenster und eine Helligkeit für die Grafikpunkte. Wenn Sie 
Spaß daran haben, können Sie allerdings im Register 712 
dem Bildschirmrand eine eigene Farbe verpassen. 


600: Hier finden wir wieder einen der nützlichen Helfer, die 
treu und brav zählen. Hier heißt der Helfer CO, und er 
kann nicht mehr, als bei jedem Programmdurchlauf 1 weiter- 
zuzählen. Den Rest besorgt die nächste Anweisung. 


610: Wenn CO bis 50 gezählt hat, und das heißt für den 
Bildschirm, daß er inzwischen 50 gePLOTtete Rechtecke aus- 
halten muß, dann soll das Programm Zeile 620 überspringen 
und bei 630 weiterarbeiten, denn sonst geht es in 


620: zurück nach 130, auf daß der Zufall ein neues Recht- 
eck zeichne. 


630: Hier angelangt, wird COLOR 0 eingeschaltet, das ist 
die Farbe des Hintergrundes. Was das bedeutet, können Sie 
sehr schön am Bildschirm beobachten: Mattscheibenpflege. 


640: Wenn allerdings CO bereits bis 100 gezählt hat, dann 
wird flugs wieder COLOR 1 eingeschaltet und CO auf 0 
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gesetzt, auf daß sie wieder von vorne zähle. 


650: beendet einen Programmdurchlauf mit dem Rücksprung 
nach 130. 


Die Zeilen 600 bis 640 sorgen also dafür, daß 50 Durchläufe 
diverse Rechtecke in COLOR 1 gezeichnet werden, dann wer- 
den 50 Durchläufe lang Rechtecke mit COLOR O0 gePLOTtet, 
also optisch wird gelöscht. Danach beginnen wieder 50 
Durchläufe, in denen sichtbar gePLOTtet und geDRAWTOt 
wird und so fort, bis Sie BREAK oder RESET drücken oder 
den Kasten einfach ausknipsen. 


(Aber vor dem Ausschalten darf ich Ihre Aufmerksamkeit 
noch einmal kurz auf die bläulichen und gelblichen Farb- 
effekte lenken, die ich mich bereits in Abschnitt 2.1.3 
bemüht habe, Ihnen zu erklären.) 


Vielleicht sind Sie schon selbst auf die Idee gekommen, daß 
die vier Punkte nicht zu einem Rechteck verbunden werden 
müssen. Sie könnten auch nur je zwei waagerecht oder 
senkrecht zu einer Linie verbinden, aber das bringt nicht viel. 


Interessanter ist es schon, jeweils zwei diagonal gegenüber- 
liegende Punkte zu verbinden. Durch die symmetrische 
Anordnung laufen diese Strecken alle durch das Zentrum. Es 
entsteht also ein Stern mit verschieden langen Strahlen. Ein 
Programm für Weihnachten. Sie brauchen dafür nur folgende 
Zeilen zu ändern: 


470 PLOT Gl,Hil 

480 DRAWTO 653, H3 

490 FLOT G2,HZ 

500 DRAWTO G4, Ha 

„10 loeschen 

RUN und voila! 

(es gruesst Ihr Computer 


Viel mehr Möglichkeiten bieten sich an, wenn wir nun endlich 
auf die bei jedem Durchlauf aufgehobenen alten Koordinaten- 
werte zurückgreifen. Uns stehen dann jeweils acht Punkte 
zur Verfügung, von denen jeweils vier neu erzeugt sind und 
vier aus dem vorherigen Durchlauf stammen. Sie erinnern 
sich, daß in den Variablen Xi bis X4 und YI bis Y4 die 
jeweils letzten Bildschirmpositionen notiert wurden und in 
den Variablen Gl bis G4 und HI bis H4 die gerade neu 
ermittelten enthalten sind. Abgesehen von den vielen Kreuz- 
und Querverbindungen, die zwischen acht Punkten möglich 
sind, erlauben diese Werte auch das schrittweise Zeichnen 
ununterbrochener Linien. 
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Im folgenden Programm wird nun jeweils eine Linie vom 
zuletzt ermittelten Punkt zur neu gefundenen Koordinate ge- 
DRAWTOt. Der durch DRAWTO neu erreichte Punkt wird dann 
der alte Punkt für den nächsten Durchlauf, in dem wieder 
ein neuer Punkt ermittelt wird, zu dem die Linie fortgezogen 
wird. Auf diese Weise entspringen bei RUN im Zentrum des 
Bildschirms vier Linien, die in irren Zacken hin und her 
über den Bildschirm blitzen und langsam ein Gespinst 
stricken, daß aber durch die in den Zeilen 230 bis 300 
programmierte Beziehung immer hübsch symmetrisch zur 
senkrechten und zur waagerechten Mittelachse bleibt. Und 
das macht unserer Wahrnehmung nun mal Spaß. (Bitte 
bemerken Sie: Symmetrie ist Ordnung. Symmetrie macht uns 
Spaß. Wie stehts bei Ihnen mit der Ordnung?) 


Die Zeilen 10 bis 460 können Sie vom vorherigen Programm 
unbesehen übernehmen. Dann geht es so weiter: 


a7O PLOT X1,Y1 
430 DRAWTO Gl, Hi 
490 PLOT X2,Y2 
500 DRAWTO 62, H2 
„iD PLOT X3,Y5 
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320 DRAWTO 63, H3 

350 PLOT X4,Y4 

„40 DRAWTO G4, H&4 

San X1=G1 

san X2=GZ 

wr0 X3=G5 

Een XA=GA 

ad Yı=Hi 

so0 Yz=HZ 

E10 Y3=HS3 

E20 Yaz=Ha 

6509 CO=C0O+1 

640 IF CO> 100 THEN 660 
550 GOTO 1350 

8660 COLOR OÖ 

570 IF DO ZEO THEN COLOR 1:C00=0 
&80 GOTO 130 


470: PLOTtet den alten Punkt X1,Y1 und 
480: zieht eine Linie zum neuen Punkt G1,Hl 
490 bis 540: verfahren mit den übrigen Koordinaten genauso. 


550 bis 670 entsprechen den Zeilen 520 bis 630 der vorher- 
gehenden Programmvariante, nur die Zeilennummern haben 
sich geändert. In Zeile 


670: ist der numerische Wert von 100 auf 220 erhöht worden. 
Warum wohl? 


680: beschließt dieses Programm wieder mit dem Rücksprung. 


Das sieht schon ganz gut aus, was? Aber jetzt folgt der 
krönende Abschluß, wenn wir wieder Farbe ins Spiel 
bringen. Wir gehen dazu wieder in GR.23, wo unser kreativer 
Ausflug ja auch begonnen hat. Weil ein Haufen Werte wieder 
zu ändern ist, hier das vollständige Linsting: 


10 GRAPHICS 23 
20 COL=16 
30 POKE 708, COL. 
40 COLOR A 


wu %X1=79 
Bu X2=79 
70 X3=793 
a0 X4=79 
u Yı=a7 
DO Yazz=a7 
‚10 Y3a=4a7 
.2D Y4a=a7 
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150 A=INT (RND (O0) #20) 
140 B=INT(RND(O) ZOO) 
150 C=INT(RND(O) #2) +1 
1&0 D=INT(CRND(O)#Z) +1 
170 IF C=1 THEN Es1i 
80 IF C=z THEN Es=s-1 
1390 IF D=1 THEN Feel 
"on IF D=Z£ THEN F=-1 
210 G=RAxE 

E20 H=BrF 

z50 Gl=X1+6G 

un BE=X2+G 

„50 G5=X5-56 

60 Ga4=X4-G 

70 Hi=Yi+H 

80 HZ2=YE-H 

2930 H3=Y35-H 

00 H4=Y4+H 

sio IF G1>127 THEN 1350 
520 IF Gi (31 THEN 130 
550 IF 623127 THEN 130 
„a0 IF GE(51 THEN 150 
s50 IF G3<(51 THEN 1350 
Ss&0 IF GE) 1E7 THEN 150 
570 IF G4(31 THEN 150 
80 IF G4) 187 THEN 150 
530 IF H1)95 THEN 140 
ao IF H1<(0O THEN 140 
440 IF HZ<(0 THEN 140 
420 IF H2I935 THEN 140 
450 IF H5<0 THEN 140 
4aun iF H3>95 THEN 140 
450 IF H4)95 THEN 140 
460 IF Ha<XO THEN 140 
47o FLOT Xi,Yi 

480 DRAWTO Gl,Hi 

43) FLOT X2,YzZ 

SO0O DRAWTO GE,HZ 

„10 PLOT X53,Y5 

20 DRAWTO 63, H3 

3530 FLOT X4,Y&4a 

4) DRAWTO G4, Ha 

330 GO=RND (O0) 

„60 IF G0)0O.4 THEN 650 
70 CO=INT(RND(O) #29) #2 
„80 COL=COL+CO 

>90 IF COLIZESS THEN COL=COL-Z256 
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600 FOKE 708+F,CoL 


610 F=P+1 
620 IF HZ THEN F=0 
550 X1=6G1 
BAU X2=GE 
50 X5=65 
BEN XA=la 
670 Yı=Hil 
BD Y2=H2Z 
an Yös=Hs 
700 Ya=Hd 


730 COLOR F+l 

720 FOR Z=0 TO 100 
730 NEXT Z 

740 GOTO 130 


10: schaltet Grafik 7 ohne Textfenster ein 

20: setzt die Variable COL auf 16 und 

30: POKEt den Wert COL in das Register für COLOR 1 (708) 
40: schaltet COLOR 1 ein. 


50 bis 120: enthalten der gröberen Auflösung wegen die 
numerischen Werte 79 bzw. 47. Dann folgen in 


130 bis 460: die bekannten Kommandos mit entsprechend 
angepaßten Werten. In 


470 bis 540: werden die gleichen PLOT- und DRAWTO-Befehle 
ausgeführt wie im vorherigen Programm. Der Farbwechsel 
steht diesmal an einer anderen Stelle im Programmverlauf, 
aber das ist nicht weiter von Bedeutung. 


550: kreiert einen Zufallswert für GO 


560: überprüft, wie GO ausgefallen ist und leitet in 60% 
aller Fälle, nämlich immer wenn GO größer als 0,4 ausfällt 
und das ist für 60 von 100 Fällen zu erwarten, nach 630 
über, wo die bekannte Aufbewahrung der alten Koordinaten 
beginnt. 


570: Wenn die Bedingung aus 560 aber nicht zutrifft, dann 
bleibt der Sprung aus und es geht hier weiter, indem ein 
Zufallswert für CO ermittelt wird, der zwischen 0 und 56 
liegt, aber nur gerade Zahlen annehmen kann, wie Sie 
sicher inzwischen schon selbst erkennen. Um diesen Zufalls- 
wert CO wird nun in 


580: der Wert von COL vergrößert. 


590: sorgt in der schon erklärten Form dafür, daß nur 
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Werte zustande kommen, die als Farbwerte von ATARI 
akzeptiert werden, also kleiner als 255 und positiv sind. 


600: Hier wird der neue Wert COL in das Register 708 ge- 
POKEt. In dieser Zeile steht zwar 708+P, aber beim ersten 
Durchlauf ist P noch O0. Es wird erst in Zeile 


610: um den Wert 1 erhöht, so daß beim nächsten Durchlauf 
das folgende Register bedacht werden kann. Da bekanntlich 
nur drei Farbregister in der gewählten Betriebsart zur Ver- 
fügung stehen, sorgt Zeile 


620: dafür, daß P keinen größeren Wert als 2 annehmen 
kann, aber das habe ich ja schon erklärt. 


630 bis 700: bewahren die alten Bildschirmkoordinaten auf. 


710: wechselt die Farbe. COLOR-Werte O0 bis 3 können aufge- 
rufen werden. P hat wechselnde Werte zwischen O0 und 2. 
Deshalb wird in dieser Zeile COLOR P+1 aufgerufen (also 1 
bis 3). COLOR 0, der Hintergrund, wird in dieser Version 
nicht bemüht. Aber das können Sie ja ändern. 


Weil das Programm für meinen Geschmack etwas hastig läuft, 
habe ich in 


720 und 730: eine Pause programmiert. 
740: Rücksprung. 


Ich finde, mit dieser Schöpfung können wir uns schon sehen- 
lassen (?). Versenken Sie sich jetzt noch ein wenig in die 
Abbildung auf Seite 117. Das Programm stellt uns Werte für 
acht Bildschirmpositionen zur Verfügung. Damit läßt sich 
eine Menge anfangen. Sie müssen ja nicht immer die neuen 
mit den alten Punkten verbinden. Viele andere Variationen 
sind denkbar. Man könnte sogar auf die Idee kommen, vom 
Zufall bestimmen zu lassen, welcher Punkt im jeweiligen 
Durchlauf mit welchem anderen verbunden wird. 


Sehen Sie sich die Abbildung in Ruhe eine Weile an. Jetzt 
bilden sich in Ihrer Vorstellung immer neue Linienkon- 
figurationen, neue Strukturen. Und alle diese Anordnungen 
sind mit einfachen PLOTs und DRAWTOs zu verwirklichen. 


Jetzt ist Ihre Kreativität gefragt. 
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3.3 Berechnend 


Als versierter BASIC-Programmierer sind Sie der Willkür des 
Zufalls nicht hilflos ausgeliefert. Die endlose Folge RaNDom- 
isierter Werte kann auch lediglich als Motor genutzt werden, 
um definierte, also geordnete Vorgänge auszulösen. 


Das Geschehen in der Natur ist ja ganz ähnlich. Da haben 
wir auf der einen Seite das wuselige Durcheinander von un- 
zähligen Bewegungen und Veränderungen (Chaos) und auf 
der anderen Seite gibt es (Natur) Gesetze, die nur unter 
ganz klar umrissenen Voraussetzungen Ergebnisse ermöglichen. 


Stellen Sie sich einen großen Baum vor. Im Herbst bringt er 
vielleicht 500 oder mehr Früchte hervor und in jeder einzel- 
nen Frucht sind vielleicht ein Dutzend Samenkörner enthal- 
ten. Diese Samen werden nun dem Zufall ausgesetzt: Von 
Tieren (und Menschen) gefressen und verschleppt, vom Wind 
verweht und damit im statistischen Sinne gleichmäßig über 
die Umgebung des Baumes verteilt. Aber nur wenn ein 
Samenkorn ganz exakt definierte Bedingungen von Boden, 
Feuchtigkeit, Licht und Wärme vorfindet, kann es Wurzeln 
schlagen und vielleicht zu einem neuen Baum heranreifen. 


In ganz ähnlichem Sinn ist das folgende Programm angelegt. 
Im ersten Teil wird das Grafikfenster mit Punkten zufälliger 
Farbe gefüllt. Im zweiten Programmteil gibt der Zufall den 
Motor (Energie, Bewegung) ab, während im Programm die 
Gesetze (Intelligenz, Richtung) gespeichert sind: 


100 GRAPHICS 19 

110 FOKE 708, 26 

120 FORKE 709,54 

150 FOKE 710, 74 

ı40 FOR Y=O0 TO 25 
150 FOR X=0 TO 39 
1680 C=INT(RND(O)#S) +1 
170 COLOR C 

1.80 PLOT X,Y 

130 NEXT X 

200 NEXT Y 

210 A=INT(RND(O) #40) 
ZzZQO B=INT(RND(O) #24) 
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230 LOCATE A,B,F 

240 COLOR F 

250 FLOT A,O 

>60 DRAWTO A, 23 

>70 FLOT 0,B 

z=80 DRAWTO 39,B 

230 FOR FAUSE=O TO 30 
300 NEXT PAUSE 

310 G60T0 210 


100 bis 130: schalten die Grafik ein und bestimmen Farb- 
werte für die Grafikpunkte. Der Hintergrund (712) bleibt 
unverändert (Schwarz). 


140 bis 200: Eine Schleife in der Schleife. Erst wird ein Y- 
Wert genommen und für alle X-Werte von O0 bis 39 (Spalten) 
per RND ein COLOR-Wert ermittelt und gePLOTtet. Wenn die 
X-Schleife abgearbeitet ist, kommt der nächste Wert der Y- 
Schleife an die Reihe, worauf die X-Schleife wieder ganz 
abgearbeitet werden muß. Auf diese Weise werden 24 Zeilen 
mit 39 Grafikpunkten vollgePLOTtet. 


Das war das Vorspiel. Das eigentliche Ereignis beginnt in 
Zeile 


200: Ein zufälliger Wert A für eine Spalte und 
210: ein zufälliger Wert B für eine Zeile werden ermittelt. 


230: Lokalisiert die Bildschirmposition A,B und stellt ihren 
Wert fest. Wird der LOCATE-Befehl in einer Text-Betriebsart 
(also GR.O, 1, 2, 12 oder 13) verwendet, ist der gefundene 
Wert der ATASCII-Wert des Zeichens an der bestimmten Stelle, 
bei den übrigen Grafikgängen findet LOCATE den COLOR- 
Wert des Grafikpunktes und füllt diesen Wert in die angege- 
bene Variable. Der LOCATE-Befehl hat also folgendes Format: 
LOCATE s,z,n - s bezeichnet die Spalte, z die Zeile und n 
ist eine numerische Variable, die den gefundenen Wert auf- 
nimmt. Spalten und/oder Zeilen können auch durch Variablen 
oder zu berechnende Ausdrücke ersetzt werden. 


Im vorliegenden Programmbeispiel wird der COLOR-Wert des 
Grafikpunktes A,B in der Variablen F gespeichert. 


240: schaltet genau die Farbe des zufällig gefundenen Punktes 
ein. 


250 und 260: ziehen in der Spalte (X-Wert) A eine Linie 
von oben nach unten (Zeile O0 bis 23). 


270 und 280: ziehen in der Zeile (Y-Wert) B eine Linie über 
alle Spalten (X-Werte O0 bis 39). 
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Es folgt eine kleine Pause. Das Programm arbeitet sonst so 
schnell, daß es uns nur vor den Augen flimmert. (Sie können 
die Pause ja mal verkürzen oder ganz herausnehmen, wenn 
Sie unbedingt alles ausprobieren müssen.) 


Was geschieht auf dem Bildschirm? 


Ausgangspunkt ist ein buntes Durcheinander von Grafik- 
punkten in drei Farben. Statistisch müßte jede Farbe etwa 
ein Drittel der Gesamtfläche bedecken. Die Farben sind also 
gleichmäßig verteilt, haben Chancengleichheit. 


Jetzt kommt das Schicksal (RND) ins Spiel. Das Programm 
wählt willkürlich einen Punkt aus und durch diesen Punkt 
hindurch und in seiner Farbe werden ein senkrechter und 
ein waagerechter Balken über die volle Größe des Grafik- 
fensters gePLOTtet. Die Farbe dieses Grafikpunktes bedeckt 
nun eine bedeutend größere Fläche. Im allerersten Durch- 
gang gewinnt die glückliche Partei 39 Grafikpunkte in der 
Zeile und 23 in der Spalte, von denen etwa ein Drittel 
schon der eigenen Farbe angehören. Damit ist natürlich die 
Wahrscheinlichkeit größer geworden, daß im nächsten Durch- 
lauf wieder das Los auf einen Punkt dieser Farbe fällt. 


So entsteht ein Gerangel unter den Farben. Nach und nach 
werden sich kleinere Vorteile für einen Farbwert so ange- 
sammelt haben, daß er ein deutliches Übergewicht erkämpft 
hat. Aber je mehr Fläche eine Farbe schon bedeckt, desto 
weniger gewinnt sie im Erfolgsfall hinzu. Deshalb haben 
auch die Zurückliegenden immer noch eine Chance und 
manchmal kommt es sogar zu einem dramatischen Macht- 
wechsel. 


Eine der drei Farben wird relativ schnell zwischen den 
Fronten aufgerieben. Ist der letzte Grafikpunkt einer Farbe 
vernichtet, ist diese Partei aus dem Spiel. Das Programm 
gibt ihr keine Gelegenheit, wieder einzusteigen, denn LOCATE 
kann ja den entsprechenden COLOR-Befehl nicht mehr finden. 


Der Kampf zwischen den beiden verbleibenden Farben ist 
etwas dramatischer. Aber irgendwann hat sich eine Farbe 
durchgesetzt. Das Programm läuft dann immer noch weiter, 
auf dem Bildschirm ist aber keine Veränderung mehr zu 
sehen. 


Programmieren Sie andere (Natur-) Gesetze! 


Wie ich schon eingangs erläutert habe, ist dieses Programm 
durchaus ein (natürlich sehr stark vereinfachtes) Modell für 
natürliche Vorgänge. Allerdings ist das "Naturgesetz" in 
diesem Fall sehr plump. Deswegen möchte ich Sie mit dem 
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nächsten Prgramm noch einen kleinen Schritt weiterführen. 


Sie haben sicher schon einmal eine große Wiese gesehen. Da 
wachsen allerlei Pflanzen und es bilden sich Inseln. Wo 
schon Pflanzen einer Art stehen, sind die Bedingungen für 
nachwachsende Pflanzen der gleichen Art günstiger, schon 
weil die Besämungsdichte größer ist. 


Unser Modellfall muß aber nicht in der (gar nicht mehr so 
heilen Welt der) freien Natur angesiedelt sein. Wirtschafts- 
unternehmen unterliegen ähnlichen Prozessen. Je näher eine 
Zweigniederlassung am Stammsitz liegt, desto wirksamer 
kann der Konkurrenz dort begegnet werden. Die Entschei- 
dungswege sind kürzer, die Kosten geringer. Die Gesetze des 
Wachstums sind überall ähnlich. 


Im folgenden Modell ist der Überlebenskampf differenzierter 
geregelt. Der "Kampfplatz'"' wird wieder vom Zufall bestimmt. 
Dann aber ermittelt der Rechner die Verteilung der Kräfte in 
einem Gebiet von fünf mal fünf Grafikpunkten um den Zu- 
fallswert herum. Durch dieses Kräfteverhältnis wird bestimmt, 
welches Ereignis eintritt. Dabei werden folgende Fälle 
unterschieden: 

Hegemonie. Eine Farbe hat die absolute Vorherschafft, alle 
25 Grafikpunkte haben die selbe Farbe. Die Folge ist ein 
aggressiver Angriff. Es werden ein senkrechter und ein 
waagerechter Balken durch das gesamte Grafikfenster gezogen. 


Dominanz. Eine Farbe hat mehr als die Hälfte, also dreizehn 
Grafikpunkte. Die Dominierende Farbe erobert das gesamte 
Quadrat von fünf mal fünf Punkten. 


Mehrheit. Eine Farbe hat mehr Punkte als jede andere. Die- 
se Farbe gewinnt ein Kreuz aus fünf mal fünf Grafikpunkten. 


Anarchie. Keine Farbe hat eine Mehrheit. Z.B. können je 
zwölf Grafikpunkte in einer und der 25ste in der dritten 
Farbe in dem untersuchten Feld liegen. Wenn keine Mehrheit 
vorliegt, werden die 25 Punkte des Kampfplatzes in zufälligen 
Farbwerten neu gePLOTtet. Dabei hat die Minderheit einen 
statistischen Gewinn. 


Aber nach diesen theoretischen und entsprechend trockenen 
Auslassungen sollten Sie sich in den Kampf stürzen, ich 
meine damit, das Listing abtippen. Das ist diesmal etwas 
länger. Die vielen Wachstumsgesetze fordern ihre BASIC- 
Zeilen. Passen Sie also auf, daß Sie keine Tippfehler 
machen. 


(Ich geh' derweil einen Kaffee trinken): 
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100 
110 
120 
150 
140 
150 
160 
1.70 
180 
190 
ZOO 
SO 
ZEN 
So 
240 
SO 
260 
=70 
280 
a 1) 
300 
S10 
520 
Sr) 
540 
550 
560 
370 
>80 
530 
A4oo 
1) 
420 
4530 
440 
450 
1412718 
470 
480 
430 
wlele) 
ee 
SEO 
350) 
340 
ran pen 1 
re 1 1) 
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GRAFHICS 21 

FOKE 708, 144 

FOKE 709, 246 

PIKE 710,50 

FOR Y=0 TOD 47 

FOR X=0 TO 79 
EC=INT{RND(O) #3) +1 

COLOR C 

FLOT X,Y 

NEXT X 

NEXT Y 

IF PEEK(7TI) 120 THEN FOKE 77,0 
Fi=0:F2=0:F3=0 
x=INT(RND(O) #76) +2 
Y=INT(RND(O) #44) + 

FÜR A=-Z TO +2 

FOR B=-2 TO +2 

_LOCATE X+A,Y+B,F 

IF F=1i THEN Fi=FilHl 

IF F=2 THEN FZ=Fe+l 

IF F=3 THEN F3=rFSs+tli 

NEXT RB 

NEXT A 

REM HEGEMONIE 

IF Fi=25 THEN COLOR 1:G0T0 590 
IF F2=25 THEN COLOR 2:G0T0 390 
IF F3=-25 THEN COLOR 3:G60T0 390 
GOTO 440 

REM AGGRESSIVER ANGRIFF 

FLOT X,0 

DRAWTO X,47 

FLOT 0,Y 

DRAWTO 79,Y 

REM EINE FARBE DOMINIERT 

IF F1)15 THEN COLOR 1:6G0T0 490 
IF F2E> 15 THEN COLOR 2:G0T0 490 
IF F3>13 THEN COLOR 3:60T0 490 
GOTO 560 

REM QUDRAT IN DOMINIERENDER FARBE 
FOR A=-2 TO +2 

FOR B=-z TO +2 

FIOT X+A,Y+BR 

NEXT RB 

NEXT A 

GOTO zZ10 

REM EINFACHE MEHRHEIT 


IF (FIIFZE) AND (FYIFZ2)=1 THEN COLOR 1:60T0 


370 IF (F2IFi) AND (FEIFS)=i THEN COLOR 2:60T0 620 
580 IF (F3)F1) AND (F3)F2)=1 THEN COLOR 3:60T0 620 
5390 G0T0O 710 

600 DRAWTO X+2,Y 

810 G0TO 210 

620 REM KREUZ FUER EINFACHE MEHRHEIT 
630 PLOT X,Y-z 

640 DRAWTO X,Y+2 

650 PLOT X-2,Y 

660 DRAWTO X+2,Y 

670 GOTO z10 

EBO NEXT R 

690 NEXT A 

700 G0TO 210 

710 REM KEINE MEHRHEIT PLOT CHAOS 
720 FOR A=-2 T0 2 

730 FÜR B=-2 TO 2 

740 C=INT (RND (0)#3) +1 

750 COLOR C 

760 PLOT X+A,Y+B 

770 NEXT B 

780 NEXT A 

790 G0TO 210 


So, da bin ich wieder. Und Sie, haben Sie alles fein abge- 
tippt? 

Wenn jetzt alles läuft, d.h. wenn Sie keine Fehler einge- 
baut haben, können Sie den dramatischen Kampf zwischen 
Gelb, Rot und Blau am Fernsehschirm verfolgen. Ein Kampf, 
der jede Fußballweltmeisterschaft erblassen läßt: An den 
Grenzen spielen sich die tragischen Ereignisse von Aufstieg 
und Fall großer Reiche ab. Das Innere der Länder wird nur 
verletzt, wenn hier und da Farblanzen in alle vier Himmels- 
richtungen gestoßen werden. Aber diese Eindringlinge haben 
im Herzen des fremden Reiches kaum eine Überlebenschance. 
Doch manchmal gelingen solche Einbrüche auch, besonders 
wenn sie versprengten Einheiten auf feindlichem Terrain zu 
Hilfe kommen, 


Durch die unterschiedliche Bwertung der Mehrheitsverhältnis- 
se läuft der Kampf in diesem Programm viel differenzierter 
ab und der allererste Zufallstreffer schafft auch kein so 
großes Übergewicht. 


Falls Sie den Aufbau des Programms nun auch noch verstehen 
wollen, dann muß ich sie leider mit den nachfolgenden 
Erläuterungen behelligen: 
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100 bis 130: Grafik und Farbwahl 


140 bis 200: eine zufällige Verteilung von Grafikpunkten 
aller drei Farben wird gePLOTtet. 


210: Der Bildschirmschoner. Wenn in Register 77 ein Wert 
steht,” der größer als 120 ist, dann wird auf 0 zurückge- 
setzt. Hier könnte auch jeder andere Wert stehen, wenn nur 
verhindert wird, daß der Wert 128 in diesem Register er- 
reicht wird. 


220: setzt die Variablen Fi, F2 und F3 auf 0, die im Verlauf 
des Programmes die Jury abgeben werden. 


230 und 240: erwählen die zufälligen Koordinaten des Kampf- 
platzes und in 


230 bis 320: findet dann die Abstimmung statt. Die FOR-NEXT- 
Schleife in der FOR-NEXT-Schleife sorgt dafür, daß um den 
Zufallstreffer X,Y herum ein Feld von fünf mal fünf Grafik- 
punkten abgetastet wird. | 


270: LOCATEt jeden einzelnen dieser 25 Punkte und registriert 
seinen Wert in der Varaiblen F. Jetzt treten die Schieds- 
richter auf: 


280: Wenn der lokalisierte Wert I (also COLOR 1) ist, zählt 
Jurymitglied Fi einen Punkt. 


290: Für COLOR 2 zählt Kampfrichter 2 und 


300: Schiedsrichter F3 zählt die lokalisierten 3er Werte. 
Danach werden die Abstimmungsergebnisse ausgewertet und 
die entsprechenden Weisungen erteilt. 


330: eröffnet den Hegemonie-Block. Dieses Ergebnis ist leicht 
festzustellen. Wenn einer der drei Kampfrichter bis 25 zählen 
konnte, können die beiden anderen nichts abbekommen haben. 
Es wird dann die Farbe eingeschaltet, die Fn gezählt hat, 
nämlich COLOR n. 


340 bis 360: fragen die Jury ab, und wenn ein Mitglied den 
Wert 25 erreicht hat, wird seine Farbe eingeschaltet und 
nach 390 verzweigt. Damit wird die Zeile 


370: übersprungen. Hat keiner der Kampfrichter die Hegemonie- 
Bedingung anzumelden, gelangt das Programm hierher und 
erhält den Auftrag, bei Zeile 440 weiterzumachen. Damit wird 
der folgende Programmblock übersprungen, in dem ein Hege- 
monie-Ergebnis ausgeführt wird. 


390 bis 420: starten den aggressiven Angriff, indem sie ein 
Kreuz durch das gesamte Grafikfenster PLOTten. 
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425: gibt es gar nicht, aber hier müßte eigentlich der Rück- 
sprung nach 210 verordnet werden, an den Beginn des 
nächsten Durchlaufs. Da die Zeile 425 fehlt, müßte das 
Programm eigentlich nach vielen unzutreffenden Bedingungen 
und etlichen GOTO-Sprüngen schließlich bei Zeile 700 ankom- 
men und dort unbehelligt Chaos stiften. Also ohne Zeile 425 
müßte nach jedem aggressiven Angriff im Zentrum dieses 
Angriffs Chaos gePLOTtet werden. Und weil Zeile 425 wirklich 
nicht vorhanden ist, frage ich mich (und Sie), warum das 
nicht geschieht. Bitte überzeugen Sie sich selbst davon, und 
lassen sie das Programm laufen. Vielleicht entdecken Sie 
den Grund dafür*. Dann schreiben Sie mir bitte, ich möchte 
es auch gerne wissen. 


430: Auch das Dominieren einer Farbe ist leicht zu ermitteln. 
Wenn 13 von 25 Grafikpunkten die gleiche Farbe haben, so 
ist das die absolute Mehrheit. (*dies gilt natürlich auch 
für jeden größeren Wert!). Also wenn ein Wert größer als 
12 (*13 bis 25, dämmerts noch nicht?), liegt Dominanz vor. 


440 bis 460: fragen diese Dominanz ab und springen nach 
490 in den Ausführungsblock, um Zeile 


470: zu überspringen, die direkt zur Auszählung der einfa- 
chen Mehrheit überleitet. 


480: Dominanz sollte mit einem Quadrat von fünf mal fünf 
Grafikpunkten belohnt werden. Das geschieht in 


490 bis 530: in der vertrauten Weise mit einer verschachtel- 
ten FOR-NEXT-Schleife. 


540: führt zum nächsten Durchlauf zurück (hier habe ich 
dran gedacht!) 


550: Ja mit der Demokratie ist das so eine Sache. Die ein- 
fache Mehrheit ist nicht so leicht festzustellen. Zum Glück 
sind bei diesem Spiel keine Koalitonen zugelassen. (Nicht 
daß sie denken, ich könnte das nicht programmieren, aber 
diese Arbeit!), deswegen bedeutet dann "einfache Mehrheit", 
daß die Farbe 1 mehr Felder als Farbe 2 bedecken muß und 
unabhängig davon auch mehr als 3. Nennen wir den Zähler 
beim Namen, so heißt das, Fi muß größer sein als F2 und 
Fi muß größer sein als F3. Wir haben also zwei Bedingungen, 
die beide erfüllt sein müssen, bevor wir weitere Schritte 
einleiten können. Nun läßt das ATARI-Basic ja zu, IF-THEN- 
Bedingungen zu verketten. Wir könnten also schreiben: 


Ss60 IF FIIFZ THEN IF FLDFS THEN COLOR 1:60T0 6830 


Leider hat bereits in der Mitte des 19. Jahrhunderts (1815- 
1864) der englische Mathematiker und Logiker Georg Boole 
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eine Algebra entwickelt, mit der solche Bedingungen viel 
einfacher abgefragt werden können. Deswegen sind die 
Booleschen Operatoren ein Teil von BASIC und deswegen 
müssen wir uns damit herumschlagen. Puh. 


Die Operatoren heißen (logisches) AND, OR oder NOT. Die 
Operatoren überprüfen Behauptungen oder Bedingungen, die 
entweder "wahr!" oder "falsch!" sein können. Ist die Bedin- 
gung wahr, ist das Ergebnis 1, ist es unwahr 0. Eine 
numerische Variable für sich ist wahr (=1), wenn sie ungleich 
0 ist und unwahr (=0), wenn sie 0 ist. 


In der Rangfolge der Operatoren stehen die Booleschen ganz 
hinten, die zu überprüfenden Bedingungen müssen deshalb 
in Klammern gesetzt werden. Mit den Operatoren können auch 
mehrere Behauptungen verknüpft werden. Geschieht die Ver- 
knüpfung mit AND, müssen beide verknüpften Behauptungen 
wahr sein, wenn das Ergebnis I sein soll. Geschieht die 
Verknüpfung mit OR, muß nur eine wahr sein, um das 
Ergebnis 1 hervorzubringen. Auf diese Weise können beliebig 
viele Behauptungen verknüpft werden. NOT stellt alles auf 
den Kopf, macht aus unwahr wahr und aus wahr unwahr, 
Soviel in Kürze über Herrn Boole und seine Segnung! 


560: Wir haben es mit zwei Behauptungen zu tun. Fi soll 
größer sein als F2 AND Fi soll größer sein als F3. Und nur 
wenn dieser Gesamtausdruck wahr (=1) ist, dann soll COLOR 
1 eingeschaltet und nach 620 gesprungen werden. 


570: kümmert sich um den COLOR-Wert 2. IF F2 größer FI 
AND F2 größer F3 THEN Farbe 2 einschalten und nach 620. 


580: Und noch einmal: WENN der Ausdruck in der ersten 
Klammer wahr (=1) ist UND der Ausdruck in der zweiten 
Klammer wahr (=1) ist DANN Farbe 3 und GEHNACH 620. 


590: Durch den Sprung nach 620 würde diese Zeile über- 
gangen. Ist aber keine der vorstehenden Bedingungen erfüllt, 
dann darf der Programmblock mit den entsprechenden PLOT- 
Anweisungen nicht bearbeitet werden. Und darüber wacht 
diese Zeile. 


600 und 610: habe ich stehenlassen, um Ihnen zu zeigen 
(und das ist doch nach der Booleschen Zumutung eine an- 
genehme Abwechselung), wie sich so Fehler in ein Programm 
einschleichen. 600 und 610 haben inzwischen die Zeilen- 
nummern 660 und 670. Ich habe sie beim Schreiben des Pro- 
gramms umnumeriert - und vergessen zu löschen. Da stehen 
Sie nun, treu und brav, und richten zum Glück kein Unheil 
an, weil sie auf jeden Fall übersprungen werden. Datenmüll. 
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Wäre ich bei der Arbeit an diesem Buch das Programm nicht 
noch einmal Zeile für Zeile durchgegangen, hätte ich diese 
Hinterbliebenen wohl nie bemerkt, denn das Programm läuft 
ja auch mit ihnen fehlerfrei. Zwei unnütze Zeilen in einem 
BASIC-Programm, was macht das schon. Stellen Sie sich aber 
eine ganze Computer-Gesellschaft vor und die Unmengen 
herrenloser Informationen, die durch die Datennetze um den 
Globus geistern. Datenabfälle, die nicht beseitigt werden, 
weil sie nicht zu "sehen!" sind. 


Sie sehen an diesem Beispiel, wie dezent sich Fehler in 
einem Programm verstecken können. Wenn nicht alle Sprung- 
befehle über 600 und 610 hinweggingen, dann würden sich 
diese beiden Störenfriede unangenehm bemerkbar machen. 
Und dann gibt es nur einen Weg: Das ganze Programm Zeile 
für Zeile durchgehen, so wie es der Rechner auch abarbeiten 
würde, jedes Kommando überprüfen, jede Variable verfolgen, 
bis der Tipp- oder Logikfehler aufgespürt ist. 


620: Wenn also eine einfache Mehrheit gefunden wurde, dann 
wird jetzt das kleine Kreuz mit der Balkenlänge von fünf 
Grafikpunkten gePLOTtet. 


630 bis 660: erledigen diese schlichte Arbeit und 
700: führt das Programm nach 210, zum nächsten Durchlauf. 


710: Jetzt bleibt nur noch die Anarchie übrig. Keine Herr- 
schaft, keine Wahlen. Wenn das Programm bis hierher 
durchgedrungen ist, dann waren alle anderen Bedingungen 
nicht erfüllt, also liegt keine Mehrheit in irgendeinem Sinne 
vor. (Da die Gesamtzahl der überprüften Grafikpunkte, 25, 
nicht durch 3 teilbar ist, kann dieses Ergebnis nur ein- 
treten, wenn zwei Farben gleich viele Felder bedecken.) 


720 bis 780: füllen den Ort der Auseinandersetzung mit Hilfe 
des Zufalls. Und dann erfolgt in Zeile 


790: der Rücksprung nach 210, 


Und in dieser Zeile erfolgt der Sprung ins nächste Kapitel. 
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3.4 Scheinlösung 


spätestens seit Erfindung des Kinematographen wissen wir, 
daß unser Auge mindestens so träge ist wie der Geist. Zwei 
Bilder verschmelzen zu einer Bewegung, wenn sie nur schnell 
genug hintereinander gezeigt werden. 


Ein Heim-Computer ist in der Regel zu langsam, um bewegte 
Bilder zu erzeugen. Mehr als eine stehende Grafik fortlaufend 
zu verändern oder nach und nach aufzubauen, vermag er 
nicht zu leisten. 


Bildinformationen benötigen extrem viel  Speicherkapazität. 
Selbst bei einer am Maßstab unseres Auges gemessen relativ 
groben Auflösung und der Beschränkung auf eine einfache 
Farbskala wird schnell das gesamte Elektronengehirnvolumen 
eines Heim-Computers für ein einziges Bild verschlungen. In 
BASIC programmiert baut sich das Bild selbst so langsam 
auf, daß jede Bewegung gefrieren würde. 


Trotzdem läßt sich die Trägheit des Auges nutzen, um Bewe- 
gung vorzutäuschen. Wie wärs mit einen Tennis-Match: 


10 FOKE 752,1 

20 FOR X=0 TO 38 

30 POSITION X, 20 

vo @ " 

50 FOR F=0 TO 10 

60 NEXT F 

70 NEXT X 

BO FOR X=38 TO O STEF -I 

30 FOSITION X,20 

109.7 Wo 

110 FOR F=0 TO 10 

20 NEXT F 

150 NEXT X 

140 GOTO ZO 

10: schaltet den Cursor aus. 

20: Der Schleifenzähler X umfaßt die Werte O bis 38, die in 
30: die POS.ition bestimmen, an der in Zeile 


40: unser Tennisball gePRINTet wird. Das Pseudografik- 


132 


Zeichen CHR$(20), einen Punkt, erreichen sie über die Tasten 
CONTROL und T. Die Leerstellen vor und hinter dem Grafik- 
zeichen löschen diese Schreibstellen. Ein einmal geschrie- 
benes Zeichen oder ein Grafikpunkt verschwindet ja nicht 
von selbst wieder von der Bildfläche. 


50: ist eine kleine Atempause, weil dieses kleine Programm 
denn doch zu schnell läuft. Verändern Sie die Dauer. 


60: beendet die Pause. 


70: überprüft den Schleifenzähler X. Wenn die X-Werte von 


0 bis 38 abgearbeitet werden, so wird der '"Tennisball'" von 
links nach rechts immer in die folgende Spalte gedruckt, 
wobei die linke Leerstelle jeweils den vorherigen Punkt 


löscht. Unser Auge läßt uns glauben, der Ball flöge von 
links nach rechts. Weil alles so schnell geht, sehen wir so- 
gar scheinbar zwei unscharfe Bälle, was den Bewegungsein- 
druck noch unterstreicht. Wenn Sie die Pause auf 100 ein- 
stellen, können Sie aber deutlich sehen, wie das Zeichen 
Spalte um Spalte gedruckt wird. 


80: eröffnet den selben Vorgang rückwärts, von rechts nach 
links, STEP -I. Dadurch entsteht der Eindruck, 


90 bis 130: daß der Ball zurückfliegt. 


140: führt zurück nach 20, so daß eine endlose Bewegung 
des Balls von rechts nach links und zurück abläuft. 


Durch das fortlaufende Drucken und Löschen kann auch eine 
streng geordnete Grafik auf Trab gebracht werden. Erste 
Bewegung kommt ins Bild, wenn sich die Grafik aufbaut. 
Das kann zwar recht schnell gehen, dauert aber doch sicht- 
lich seine Zeit, je feiner die Auflösung wird und je mehr 
Punkte zu PLOTten sind, 


Wird der Aufbau der Grafik geschickt gelenkt, können damit 
Bewegungseffekte erzielt werden, ähnlich wie es schon am 
Tennisball gezeigt worden ist: 


100 REM FORNEXT1.BIR 
110 GRAFHICS 24 

120 FOKE 712,0 

130 POKE 710,0 

1430 C=C+1 

150 IF C=2 THEN C=O 

160 COLOR C 

170 FOR X=66 TOD 256 STEF 5 
180 PLOT X,O 

190 DRAWTO 322-X, 130 
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z00 NEXT X 

10 FOR Y=190 TO 0 STEP -5 
220 FLOT 256, 190-Y 

2309 DRAWTO 66&,Y 

240 NEXT Y 

30 GOTO 140 


100: Was ist REM? REMember ist ein programmierter Denkzet- 
tel, eine Zeile, die vom Rechner übergangen wird. In solchen 
Zeilen kann man als Programmierer Nachrichten hinterlassen. 
REM-Zeilen können wie jede andere Zeile angesprungen 
werden (GOTO oder GOSUB). Ich habe hinter REM den Datei- 
namen vermerkt, unter dem ich das Programm auf Diskette 
gespeichert habe. Lasse ich das Programm ausdrucken, so 
habe ich damit quasi eine Überschrift, unter der ich es in 
meinem Programmarchiv wiederfinden kann. 


110: höchste Auflösung (HIRES) ohne Textfenster. 


120 und 130: sind für Sie zum Spielen eingerichtet. Hier 
können Sie nach Belieben andere Farbwerte für das Grafik- 
fenster und den Rand POKEn. 


140: Die Variable C zählt von O aufsteigend immer | weiter, 


150: aber nur bis 1, denn wenn sie mühsam 2 erreicht hat, 
wird sie schon wieder zur 0 zusammengestaucht, 


160: damit sie hier den Wert für den COLOR-Befehl abgeben 
kann. COLOR 1 PLOTtet einen Grafikpunkt, COLOR O PLOTtet 
Hintergrund. 


170: definiert den Schleifenzähler X von 66 bis 256 mit einer 
Schrittweite von 5. Daraus werden die X-PLOTs entwickelt. 
Bei einer Auflösung von 320 Spalten ergeben die X-Werte 66 
bis 256 eine Strecke, die in der Mitte des Grafikfensters 
liegt und genauso lang ist, wie das Grafikfenster hoch ist. 


180: PLOTtet den jeweiligen X-Wert in Zeile (Y-Wert) 0 und 


190: zeichnet eine Linie, die in der Zeile 190 liegt, also am 
unteren Rand und dem gerade gePLOTteten Punkt diagonal 
gegenüberliegt. Ist X=66, dann ist X-322=256; ist X=256, 
dann ist 322-X=66. 


200: überprüft den Schleifenzähler. 


Bis zu diesem Punkt wird folgende Wirkung auf dem Bild- 
schirm erzielt: 


Genau in der Mitte des Grafikfensters liegt ein gedachtes 
Quadrat. Es füllt den Bildschirm in der Höhe aus. Es werden 
Linien gezogen, die diagonal durch dieses Quadrat laufen. 
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Die erste Linie verläuft von der Ecke (des Quadrates) oben 
links nach unten rechts. Die Endpunkte der folgenden Linien 
rücken dann oben jeweils fünf Bildpunkte nach rechts und 
unten fünf Bildpunkte nach links, bis als letztes eine Linie 
gePLOTtet wird, die von oben rechts nach unten links ver- 
läuft. Das Quadrat ist jetzt diagonal geviertelt und das 
obere und untere Viertel sind mit Strahlen in gleichmäßigem 
Abstand ausgefüllt. 


Im nächsten Programmblock sollen nun die Viertel rechts 
und links auf die gleiche Weise ausgefüllt werden. Es müssen 
also Y-Werte in Fünferschritten abgearbeitet werden. 


210 bis 240: erledigen diese Arbeit. So wie die Werte jetzt 
gewählt sind, werden die beiden Diagonalen durch das 
Quadrat zweimal gePLOTtet, nämlich erst in der X-Schleife 
und dann auch noch in der Y-Schleife. Dadurch entsteht in 
der scheinbaren Bewegung eine kleine Verzögerung in den 
Ecken. Wenn Sie den Schleifenzähler für Y auf 185 bis 5 
ändern, erhalten Sie eine vollkommen gleichmäßige Bewegung. 


250: springt nach 140 zurück, wo C auf den Wert 2 gesetzt 
wird, der dann in Zeile 


150: auf O0 gesetzt wird, so daß in diesem Durchlauf alle 
Linien in der gleichen Reihenfolge gePLOTtet werden, jedoch 
in der Farbe des Hintergrundes, d.h. sie verschwinden 
optisch von der Bildfläche. 


So wird das Quadrat im Urzeigersinn mit Linien gefüllt, 
dann werden die Linien im Urzeigersinn wieder gelöscht und 
wieder gezeichnet und wieder gelöscht und BREAK! 


Diese Abfolge von gezeichneten und wieder gelöschten Linien 
bildet uns ein, etwas würde sich um den Mittelpunkt des 
Quadrates drehen. Hätten wir uns die Mühe gemacht, für die 
PLOTs Endpunkte zu errechnen, die auf einem Kreis um den 
Mittelpunkt liegen, dann würde der Eindruck eines gleich- 
mäßig rotierenden Ventilators noch viel stärker sein. Aber 
keine Angst, diese Mühe werden wir uns später noch machen. 
Die FOR-NEXT-Schleife läßt sich dann allerdings in dieser 
bequemen Weise nicht mehr nutzen. 


Ändern Sie in den Zeilen 170 und 210 die STEPs auf 10, 
23.75, 47.5 und 95, natürlich den einen immer positiv und 
den anderen mit negativem Vorzeichen. 


Noch ein Beispiel, wie aus einer FOR-NEXT-Schleife Bewegung 
herausgeholt werden kann, sollen die beiden folgenden Pro- 
gramme geben. Ein Quadrat in der Mitte des Grafikfensters 
wird ganz in einer Farbe ausgefüllt. Selbst bei der gröbsten 
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Auflösung von GR.3 dauert es einen Moment, die 576 zu 
drucken. Unser Auge kann den Vorgang durchaus beobach- 
ten, wenn auch der Eindruck einer fließenden Bewegung ent- 
steht. Im ersten Programmteil füllt sich das Quadrat von 
oben nach unten, Spalte für Spalte (von links nach rechts). 
Das sieht fast so aus, als ob ein flinker Maler eine Wand 
streicht. Wenn die Fläche mit der ersten Farbe lackiert ist, 
wird die Farbe gewechselt und ein zweiter Anstrich aufge- 
tragen. Jeder, der etwas vom Malerhandwerk versteht, weiß, 
daß dieser Anstrich quer zum ersten erfolgen muß. Wir lassen 
den Computer also von links nach rechts Zeile um Zeile 
pinseln. Dann wird der nächste Farbtopf geöffnet und wieder 
ein senkrechter Anstrich aufgetragen, danach ein waagerech- 
ter usf. So geht es alle 128 ATARI-Farben durch und dann 
wieder von vorne (mit einem Computer kann mans ja machen): 


100 REM FORZNEXT.BIR 
110 GRAFHICS 19 

120 C=254 

1530 FOKE 708,C 

140 FOKE 709,C0-2 

ı50 COLOR 1 

1E0 FOR X=51 TO 8 STEF -1 
170 FLOT X,0O 

180 DRAWTO X,23 

130 NEXT X 

200 COLOR 2 

210 FOR Y=0 TO 25 

220 FLOT 8,Y 

230 DRAWTO 31,Y 

240 NEXT Y 

250 C=C-4 

=60 IF C<DO THEN C=254 
270 GOTO 150 


120: setzt die Variable C auf 254, den höchstmöglichen Wert 
für einen Farbton. 


130: POKEt diesen Wert für COLOR 1 und 
140: eine Nummer heller für COLOR 2. 


150 bis 190: pinseln das Quadrat in Farbe 1 spaltenweise 
von links nach rechts voll. 


200 bis 240: pinseln das Quadrat in Farbe 2 zeilenweise von 
oben nach unten voll. 


250: reduziert C um 4, also auf den nächstkleineren Farbwert. 


260: setzt C wieder auf 254 bevor es wunerwünschterweise 


136 


einen negativen Wert annimmt. 


Einen fröhlicheren Wechsel in der Farbgebung bietet die fol- 
gende Programmversion. Hier werden die COLORs über Vari- 
ablen aufgerufen und es können Werte aus drei Farbregistern 
gezogen werden. Hier haben Sie mehr Möglichkeiten zum 
experimentieren. Verändern Sie die Bedingungen für A und B. 
Schaffen Sie neue Anweisungen für den Wechsel der Werte in 
den Farbregistern: 


100 GRAPHICS 19 
110 A=1:R=3 

120 POKE 708,0 
150 FOKE 709, C+2 
140 POKE 710,C+4 
{50 A=A+1:E=B+1 


160 IF A=4 THEN A=1 

170 IF B=4 THEN B=i 

z00 COLOR A 

z10 FOR X=31 TO B STEF -—1 


220 PLOT X,0 

230 DRAWTO X,23 
240 NEXT X 

250 COLOR B 

260 FÜR Y=0 TO 23 
270 PLOT 8,Y 

280 DRAWTO 31,Y 
290 NEXT Y 

300 C=eC+? 

310 IF C)2S1 THEN C=0 
320 60T0 120 


Um diesen Bewegungseffekt zu erzielen, braucht es natürlich 
keine FOR-NEXT-Schleife. Die erspart uns nur, jeden einzel- 
nen PLOT und DRAWTO zu bestimmen und einzutippen. Diese 
Erleichterung erkaufen wir uns aber auch mit entsprechenden 
gestalterischen Beschränkungen. Die Punkte müssen auf einer 
Geraden liegen. Wie ein Movie-Programm ohne FOR-NEXT aus- 
sieht, sehen Sie hier: 


100 GRAFHICS 23 

110 POKE 708,196 

120 POKE 709,186 

150 FORE 710,232 

150 COLOR 1:PLOT 21, 95:DRAWTO 21,0 

160 COLOR 1:FLOT 21, 95:DRAWTO 57,8 

170 COLOR O:PLOT 21, 95:DRAWTO 21,0 

180 COLOR 1:FLOT 21, 95:DRAWTO 88, 28 
190 COLOR OSPLOT 21,95:DRAWUTO 57,8 
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ZOO 
oO 
220 


50 


COLOR 1:FLOT 21, 95:DRAWTO 
COLOR O:FLOT 21, 95:DRAWTO 
COLOR 1:FLOT 21, 95:DRAWTO 
COLOR O0:PLOT 21, 95:DRAWTO 


108, 59 
88,28 
116, 95 
108,593 


——rn 


Pre 
za0O 
250 
PA 18) 
270 
80 
230 
„OO 
310 
320 
550 
te, 
540 
Ste) 
1-18 
570 
580 
590 
Xele) 
A410 
420 
430 
4.535 
4uU) 
450 
1432710) 
4.70 
480 
4.30 
OO 
310 
BED 
he’ 0} 


anrhe 
I Pc 


40 
So) 


In 


Stich, 
auf der Erde 


FÜR P=0 TO SO:NEXT P 
COLOR O:PLOT 21, 95:DRAWTO 

COLOR 1:PLOT 116, 95:DRAWTO 
COLOR 1:PLOT 116, 95:DRAWTO 
COLOR O:PLOT 116, 95:DRAWTO 
COLOR 1:PLOT 116, 95:DRAWTO 
COLOR O:PLOT 116, 95:DRAWTO 
COLOR 1:PLOT 116, 95:DRAWTO 
COLOR O:PLOT 116, 95:DRAWTO 
COLOR 1:PLOT 116, 95:DRAWTO 
COLOR O:PLOT 116, 95:DRAWTO 
FOR P=0 TO 5O:NEXT P 

COLOR O:PLOT 116, 95:DRAWTO 
COLOR 1:PLOT 116, 95:DRAWTO 
COLOR 1:PLOT 116, 35:DRAWTO 
COLOR O:PLOT 116, 95:DRAWTO 
COLOR 1:PLOT 116, 95:DRAWTO 
COLOR O:PLOT 116, 95:DRAWTO 
COLOR 1:PLOT 116, 95:DRAWTO 
COLOR O:PLOT 116, 95:DRAWTO 
COLOR 1:PLOT 116, 35:DRAWTO 
COLOR O:PLOT 116, 95:DRAWTO 
FOR F=0 TO 50:NEXT F 

COLOR O:PLOT 116, 95:DRAWTO 


116,95 


21,95 
29,59 
21,95 
43, 28 
29,59 
80,8 

49, 28 
116,0 
80,8 


116,0 
116,0 
80,8 

116, 0 
4.3, 28 
80,8 

29, 59 
43,28 
=1, 95 
29,59 


21,95 


COLOR 1:FLOT 
COLOR 1:FLOT 
COLOR O:PLOT 
COLOR 1:PLOT 
COLOR O:FPLOT 
COLOR 1:PLOT 
COLOR O:FLOT 
COLOR 1:PLOT 
COLOR O:FLOT 


21,3S5:DRAWTO 
21,95:DRAWTO 
21, 95:DRAWTO 
21, 95:DRAWTO 
21, 951DRAWTO 
21 ,35:DRAWTO 
21, 935:DRAWTO 
21,95:DRAWTO 
21, 95:DRAWTO 


FOR F=0 TO 50:NEXT P 


COLOR O:SFLOT 
GOTO 150 


der 


wieder aufrichtet, 
Bewegung läuft vor und zurück. 


Beim Umfallen 
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beschreibt 


21, 95:DRAWTO 


diesem Film wird folgendes 
in vier Bewegungsphasen umfällt, 
liegt und sich dann 


der 


116, 35 
108, 593 
116, 35 
88,28 
108, 53 
57,8 
88, 28 
21,0 
57,8 


21,0 


geboten: 


äußere Endpunkt 


Links steht 
bis er flach 
in vier weiteren Schritten 
bis er auf der rechten Seite steht. 


einen Kreisbogen, dessen Mittelpunkt der andere Endpunkt 
der Linie ist. Die PLOT-Werte, die diesen Kreisbogen erge- 
ben, können rechnerisch ermittelt werden. Aber damit will 
ich Sie erst im nächsten Kapitel belästigen. Die Abbildung 
zeigt Ihnen, wie die Werte zeichnerisch gefunden werden 
können. 





Die Koordinatenwerte aus dieser Zeichnung tauchen im Listing 
als PLOT- und DRAWTO-Werte auf: 


110 bis 130: POKEn drei Farbwerte. Im Programm wird nur 
COLOR 1 aufgerufen. Wenn Sie Spaß daran haben, können 
Sie aber von Zeit zu Zeit die Farbe des Striches wechseln. 
Sie wissen ja schon, wie man das macht. 


150: zeichnet den Strich in der ersten (senkrechten) Stellung. 


160: zeichnet den nächsten Strich, der 22,5° geneigt ist. 
Erst dann wird in Zeile 
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170: der erste Strich gelöscht, also mit COLOR O0 gePLOTtet. 
Es sind also immer zwei Striche gleichzeitig zu sehen. Da- 
durch wird der Bewegungseindruck verstärkt. In den folgen- 
den Zeilen 


180 bis 230: wird also immer erst der folgende Strich auf- 
gebaut, bevor der vorhergehende gelöscht wird. 


235: erlaubt dem Auge eine kleine Verschnaufpause. Der 
Strich scheint für einen kleinen Moment waagerecht liegend 
zu ruhen, bevor er sich in den Zeilen 


240 bis 330: zur rechten Seite hin aufrichtet. Nach der 
Ruhepause können Sie z.B. COLOR I durch COLOR 2 ersetzen. 
Der Strich bekommt dann beim Aufrichten einen anderen 
Grünton. 


335: Nach einer neuerlichen Pause rechts senkrecht stehend, 
fällt der Strich in 


340 bis 430: auf dem gleichen Wege in die Waagerechte zu- 
rück, um sich von 


440 bis 530: wieder aufzurichten, bis er auf der linken Seite 
seine Ausgangsstellung wieder erreicht hat. 


535: Die Pause. 


540: Natürlich darf der ruhende Strich erst nach der Ruhe- 
pause gelöscht werden. 


550: beginnt das Spiel von vorne. 


Statt immer hin und her zu pendeln, könnte der Strich auch 
aus der rechten Senkrechten nach oben in die Waagerechte 
klappen, um von dort in die linke Senkrechte zurückzu- 
fallen. Dazu müssen Sie natürlich die entsprechenden PLOT- 
Werte ermitteln. Das Programm wird dann noch einmal so 
lang. 


Es würde dem Bewegungseffekt auch guttun, wenn nicht nur 
vier Phasen erscheinen würden, sondern z.B. acht. Auch 
dies ist eine reine Fleißarbeit. Sie müssen nur die entspre- 
chenden Zeilen in das vorhandene Programm einfügen. 


Ein weiterer Spaß wäre es, die Farbe des Striches nach 
jeder Vierteldrehung zu wechseln und so alle möglichen 
Farbtöne durchzugehen. Also stürzen Sie sich nicht gleich 
auf das nächste Kapitel, sondern toben Sie sich erst einmal 
richtig an diesem Programm aus. 
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3.5 Fliegender Wechsel 


Bislang haben wir nur recht einfache Formen in Bewegung 
versetzt und der Hinweis auf die Kinematographie war wohl 
etwas hoch gegriffen. Aber in engen Grenzen lassen sich 
auch schnell wechselnde Bildfolgen erzeugen, wenn auch nur 
sehr kurze. 


Wie aber sollen in BASIC differenziertere Bilder in einem Nu 
komplett auf der Mattscheibe erscheinen? Das erscheint nicht 
nur unmöglich, das ist es auch. Der Rechner ist schnell 
genug, im Augenblick eine Grafik auf die Mattscheibe zu 
zaubern. BASIC ist der Klotz am Bein, der jeden großen 
Sprung zum müden Hüpfer macht. Wir müssen also einen Weg 
finden, die Bilder auf einer Ebene zu wechseln, wo die 
BASIC-Schnecke nicht kriecht. 


Keine Angst, jetzt kommt kein Exkurs in Maschinensprache 
mit endlosen Kolonnen von Hexadezimalzahlen und so. auch 
als bescheidener Heim-Programmierer können wir ein wenig 
in den Schaltkreisen walten. Z.B. durch Umschalten der 
GRAPHICS-Betriebsart. 


Dieses Umschalten geschieht augenblicklich und schneller als 
unser Auge blickt. Wenn wir ein Bild in GR.5 aufbauen und 
dann auf GR.7 umschalten, erhalten wir das gleiche Bild 
durch die feinere Auflösung um die Hälfte kleiner. Weil 
unser Gehirn sich die Arbeit gerne leicht macht, nehmen wir 
ein identisches aber kleineres Bild als das gleiche Bild in 
größerer Entfernung wahr. (das muß man wissen!) 


Im folgenden Beispiel kommt ein Vogel geflogen. Er kommt 
aus der Tiefe des Bildes auf uns zu. Deswegen beginnen wir 
mit der feinsten Auflösung, dem kleinsten Bild, und schalten 
über GR.5 auf GR.3. Natürlich muß bei diesem Trick darauf 
geachtet werden, daß alle PLOT- und DRAWTO-NWerte in allen 
drei Grafikmodi zulässig sind: 


10 FOR G== TO 0 STERF 1 
20 GRAFHICS 19+65%2 

30 X=10%*56 

40 Yr6bx*G 

50 COLOR 1 
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E00 PLOT 19+X, 1E+Y 

oO COLOR & 

80 PLOT 19+X, 8+Y 

30 DRAWTO Za+X, LO+Y 
100 DRAWTU Z5+X, LEt+Y 
110 DRAWTO 19+X, 1a+Y 
120 DRAWTO 135+X, 12E+Y 
1530 DRAWTO 14a+x, 10+rY 
140 DRAWTO 19+X,8+Y 
150) DRAWTO 19+X,5+Y 
160 PLOT 159+X, 10+rY 
170 DRAWTO 19+X, 11+Y 
180 DRAWTO ZA+X, 10+Y 
190 COLOR 3 

200 PLOT ZE+X, 1E+Y 
10 DRAWTO 37+X, 15+Y 
220 DRAWTO Z3+X, 15+Y 
50 FLOT 12%, 12HY 
240 DRAWTG i+X, 15+Y 
z=s0 DRAWTO 159+X, 15+Y 
»60 FOR Fed TO 100456 
=70 NEXT P 

80 NEXI 5 

90 GRAPHICS 19 

300 FOKE 712,55 

Sı10 FÜR Z=0 TO 30 
Sz2O NEXT 2 

330 POKE 712,0 

340 FOR Z=0 T0 oo 
S50 NEXT Z 

S5s&0 GOTO 10 

10: eröffnet das Programm mit einem Schleifenzähler, der 
rückwärts von 2 bis O0 zählt. Dieser Schleifenzähler G be- 
stimmt dann in Zeile 


20: die Grafikbetriebsart. Beim ersten Durchlauf hat G den 
Wert 2, dem mit 2 multipliziert 3+16 (=19) hinzugezählt wird. 
Oder kurz gesagt, es wird GR.7+16 eingeschaltet. Beim 
nächsten Durchlauf ist es GR.5+16 und danach GR.3+116. Die 
Grafikmodi 3, 5 und 7 verfügen jeweils über drei Farben 
für Grafikpunkte. Die Anzahl der Spalten und Zeilen ver- 
doppelt sich jeweils. Wenn gleich die Grafik gezeichnet wird, 
dann müssen wir darauf achten, daß alle Koordinatenwerte 
in den verschiedenen Grafikgängen verarbeitet werden 
können. Um in GR.5 und GR.7 trotzdem Bildbereiche zu er- 
reichen, die von Werten markiert werden, die bei GR.3 nicht 
zulässig sind, wird in den Zeilen 
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NSENNNEGNSENEEENEERNERNE 
ZERNNERNAERNNERTAMDHAME 

JENNEEEEEEEEEENHRENEREHEER 

SJBENENEENHURNUEMZABSPHDNMEK 





III ET TEL FERTETTPETTI SPESEN DET 


Bildschirmskizze des Flugzeuges in Auflösung von GRAFICS 3 


30 und 40: eine Verschiebung festgelegt, deren Größe über 
die Variable G an den Grafikmodus gekoppelt ist; je größer 
der Grafikmodus, desto größer die Verschiebung. In GR.3 
erhalten X und Y die Werte 0. In GR.5 wird X=2*10 und 
Y=2*6. Lassen Sie das Programm auch ohne diese beiden 
Zeilen laufen und probieren Sie andere Werte. Das Flugzeug 
fliegt dann jeweils einen anderen Kurs. Ach ja, der Düsen- 
Jäger wird ja erst in den Zeilen 


50 bis 250: kreiert. Hier sehen sie, wie mühsam es ist, ein 
doch vergleichsweise noch recht naives Bild PLOT für PLOT 
zu umreißen. 


260 und 270: schalten eine kleine Augenpause ein, das ist 
ja für Sie nichts neues. Die Länge der Pause ist über die 
Variable G an den Grafikgang gekoppelt. Wird der Grafik- 
gang kleiner, die Auflösung gröber, das Bild größer, also 
kommt das Objekt scheinbar näher, dann wird die Pause 
kürzer, d.h. die Geschwindigkeit wird scheinbar größer, so 
wie das bei einem näherkommenden Objekt nun einmal aus- 
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sieht. 
280: überprüft den Schleifenzähler G. 


Bevor wir weitermachen, sollten wir uns jetzt erst einmal 
das Erreichte anschauen. Geben Sie ein 

„85 GOTO 285 

und starten Sie das Programm. Ja was ist denn das? Der 
teure Vogel hat ja eine Beule. Bei den feineren Auflösungen 
fällt das nicht so auf, aber in GR.3 und bei dem stehenden 
Bild macht sich diese Asymmetrie störend bemerkbar. Da 
muß ein PLOT- oder DRAWTO-Wert nicht stimmen. Also müssen 
wir alle Werte mühsam überprüfen. Und wie ich Sie kenne, 
lesen Sie einfach weiter und die unangenehme Arbeit bleibt 
wieder mal bei mir hängen. 


Aber es ist und ist kein Fehler zu finden. Und doch dieser 
Ausrutscher. Was ist da los, es ist zum verzweifeln. Also 
jetzt überprüfen Sie das bitte selbst. Dazu steht ja die 
Abbildung auf der Vorseite. (Der Schandfleck ist mit einen 
X markiert.) Alle Werte sind exakt symmetrisch. Und doch 
erscheint auf der linken Seite ein Grafikpunkt auf 13,10, der 
rechts nicht zu sehen ist. 


Das Problem versteckt sich im DRAWTO-Befehlt. Was denken 
Sie wohl, was der Rechner bei diesem Kommando macht. Er 
kennt ja keine Linien sondern nur Bildpunkte. Auf DRAWTO 
wird ein Vorgang ausgelöst, der zwischen dem gePLOTteten 
Anfangspunkt und dem Endpunkt alle Bildpunkte errechnet, 
die dann die Linie ergeben. Liegt diese Linie irgendwie 
diagonal im Grafikfenster, dann ergibt diese Kalkulation 
nicht immer ganze Zahlen. Deshalb werden die Werte aus 
dieser Berechnung im letzten Arbeitsschritt gerundet, die 
Dezimalstellen fallen unter den Tisch. So wird aus einem 
Wert 13,1 genauso 13 wie aus 13,9. Da hilft nur sensibles 
Nachschleifen. In unserem Fall mit 


25 DRAWTO 13+X, 11+Y 


Sehen Sie, jetzt erfreut das Bild unser Auge, und wir können 
uns an den Abschluß unseres kleinen Zeichentrickfilms her- 
anmachen. In Zeile 


290: wird GR.19 eingeschaltet. Das führt dazu, daß der 
Bildschirm gelöscht wird. Welcher Grafikmodus hier verwendet 
wird, ist ziemlich gleichgültig, denn es soll nichts weiter 
dargestellt werden. Nur GR.O ist nicht zu empfehlen, weil 
dann der Cursor oben links in der Ecke jede Illusion zer- 
stört. 
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300: färbt den ganzen Bildschirm rot. Dadurch sieht es so 
aus, als ob der Jagdflieger noch näher kommt oder gar ex- 
plodiert. Sie können ja mal ausprobieren, welche Wirkung 
an dieser Stelle andere Farben haben. Hellblau (152) viel- 
leicht? 


310 und 320: unterbrechen für einen kurzen Moment, bevor 
330: die Bildfläche in Schwarz taucht. 
340 und 350: gestatten eine längere Verschnaufpause und mit 


360: gibt es das Startzeichen für den Abflug der nächsten 
Maschine. 


Wie Sie diesen Stummfilm vertonen können, erfahren Sie in 
Abschnitt 4.6. Hier bekommen Sie schon mal einen kleinen 
Vorgeschmack (wiese Geschmack? Gehör!). Ersetzen sie die 
Pause in Zeilen 340 und 350 durch dieses Geräusch*: 


=40 FOR F=0 TO 90 STER 0.3:50UND 0,F,0,15:NEXT F 
350 FOR L=15 TO 0 STERF -0.05:80UND O,F,Ö,LINEXT L 


Und nun noch der Trick, mit dem bis zu acht verschiedene 
Bilder in sehr schnellem Wechsel gezeigt werden können. 
Selbst die Geschwindigkeit eines Propellers ist kein Hinder- 
nis. Wir müssen nur Bilder von verschiedenen Stellungen des 
Propellers hintereinander zeigen. 


Bevor dieses beeindruckende Erlebnis elektronische Wirklich- 
keit werden kann, sind jedoch ein paar Fragen zu klären. 
Der Propeller beschreibt einen Kreis. Ein Blatt entspricht 
dem Radius. Wenn wir acht Bewegungsphasen herausgreifen, 
so dreht sich die Schraube zu jeder nächsten Stellung um 
22,9% 


Jetzt bräuchten wir eigentlich nur die acht Propellerblätter 
zu zeichnen. Aber auf welchen Bildschirmpositionen liegen 
die Endpunkte? Wir kennen den Mittelpunkt und den Radius, 
aber damit haben wir noch nicht die X- und Y-Werte für 
jeden einzelnen Punkt auf der Umlaufbahn. 


Natürlich lassen sich diese Werte berechnen, ist doch klar. 
Und bevor wir uns wieder in die Niederungen einer zeichne- 
rischen Lösung begeben, stellen wir uns endlich dem 
Problem. Die erste Überlegung geht natürlich in Richtung 
Pytagoras. Aber mit a?’+tb?=c? ist dem Problem nicht prakti- 
kabel beizukommen. Die Maschine rechnet an den Potenzen 
und der Wurzel zu lange herum. 


* Dieses Geräusch ist dem Buch "ATARI Sound- und Musik-Buch" von Alfred Görgens 
entnommen. Es ist in der gleichen Reihe wie dieser Band erschinen. 
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Es gibt natürlich einen anderen Weg. Der ist zwar im ersten 
Moment für Nicht-Mathematiker etwas ungewöhnlich, wenn 
man ihn aber erst verstanden hat sehr zweckmäßig. Da uns 
der Winkel bekannt ist, können wir den X-Wert mit SIN(Win- 
kel) und den Y-Wert mit COS(Winkel) berechnen: 


=0 FOR WINKEL=0 TO 360 STEF 22.5 
30 ? SINtWINKEL), COS (WINKEL) 
40 NEXT WINKEL. 


Dieses kleine Programm geht die sechzehn Winkel durch und 
errechnet zu jedem den X- und Y-Wert bezogen auf den 
Radius 1. Diese Werte müssen also noch mit dem tatsäch- 
lichen Radius multipliziert werden. Aber schauen wir erst 
einmal, ob die Formel auch stimmt. (RUN!) 


Na? Als gute Mathematikschüler wissen wir beide, daß die 
SINuswerte von 0° bis 90° auf 1 steigen, dann bis 180° auf 
0 fallen, bei 270° weiter bis -I sinken und mit 360° wieder 
bei 0 sind; während der COSinus von 1 über O0 und -I zur 
1 zurückfindet. 


COS(WINKEL) 


COSINUS 





SIN(WINKEL) 


Leider scheint unser Elektronengehirn grundsätzlich anderer 
Meinung zu sein! (?) Vielleicht versuchen Sie es einfach 
noch einmal? Aber nein. Das gleiche Programm wird auch 
immer die gleichen Ergebnisse erbringen. Da ist der Computer 
verdammt stur. Auch wenn man felsenfest davon überzeugt 
ist, daß doch nun wirklich alles so stimmt, wie es da pro- 
grammiert ist und so laufen und richtige Ergebnisse bringen 
muß und überhaupt. 


Wenn ein Programm nicht funktioniert, dann gibt es beim 
Computer keine verrußte Zündkerze oder eine falsche Ver- 
gasereinstellung, sondern es ist schlicht und einfach ein 
Fehler im Programm. So unglaublich das auch für uns sein 
mag. Und dieser Fehler muß gefunden werden. Und das 
dauert auch schon mal eine ganze Nacht. Und nur zu oft ist 
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es dann wie in diesem Fall, daß die Programmidee theore- 
tisch schon ganz richtig ist, aber irgendeine Bedienungs- 
vorschrift nicht beachtet wurde. Oder man kannte Sie 
einfach nicht. In diesem Fall ist es das kleine DEG, was 
uns zum Programmglück fehlt. DEGree heißt schlicht Grad 
und meint die Aufteilung des Kreises in 360°. Nichts beson- 
deres? Für den Computer und seine Väter schon. Deren Lieb- 
ling ist nämlich RADian (auf Hochdeutsch: Bogenmaß), das 
auf den Einheitskreis mit dem Radius 1 zurückgeht. 180° sind 
gleichgesetzt mit dem Wert 3,1485926535897undsoweiter (rt), 
und 360° mit dem Doppelten (2r). 


Beim Einschalten des Computers oder nach einem Warmstart 
(RESET) drängt sich immer der RADian in die Schaltkreise. 
Die zurückhaltenden DEGrees müssen jedesmal extra gebeten 
werden. Tun wir ihnen also den Gefallen: 


10 DEG 
und schon erhalten wir die erwarteten Werte. 


Bis jetzt bezieht sich die Funktion aber noch auf den 
Ursprung (so nennen die Mathematiker die Koordinate 0,0). 
Die künstliche Intelligenz des (ATARI-) Computers beschränkt 
sich jedoch auf den vierten Quadranten, also der Ursprung 
liegt oben links in der Ecke. Um unseren Kreis ins rechte 
Bild zu setzen, müssen wir die Koordinatenwerte des ge- 
wünschten Mittelpunktes jeweils zu den X- und Y-Werten 
addieren. 


Ich hab mir gedacht, wir nehmen für das Propellerprojekt 
den GRAPHICS 10 (weil es der einzige Modus ist, der uns 
acht frei definierbare Farben anbietet). 


Die Auflösung von GR.10 beträgt 80 Spalten und 192 Zeilen, 
der Mittelpunkt des Grafikfensters liegt also bei 39,95 und 
weil der Kreismittelpunkt im Bildmittelpunkt liegen soll, 
schreiben wir nun: 


50 ? SIN(WINKEL) +39, COS (WINKEL) +95 


Jetzt fehlt nur noch der Radius. Der Kreis soll natürlich 
möglichst groß sein. In Y-Richtung kann er einen Durchmes- 
ser von 95 Zeilen haben. Da ein Grafikpunkt in GR.10 vier 
Bildpunkte breit ist, erhalten wir die Anzahl der Grafik- 
punkte in X-Richtung, die dem Radius entsprechen, wenn 
wir durch vier teilen (=24). Damit der Radius in Zentimetern 
gemessen horizontal und vertikal gleich wird, müssen wir 
also bei dieser unhandlichen Bildauflösung mit den beiden 
ermittelten Faktoren multiplizieren: 
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50 ? SIN(WINKEL) #24+39, COS (WINKEL) #935+935 
und weil die PLOTs ohnehin nur ganze Zahlen verarbeiten: 
50 ? INT(SIN (WINKEL) *Z4) +39, INT (COS (WINKEL) #95) +95 


Wenn Sie dieses Programm laufen lassen, spuckt der Rechner 
die Koordinatenwerte der Propellerspitzen aus (auf den Bild- 
schirm). Diese Werte können Sie dann in das noch zu 
schreibende Propellerprogramm einsetzen. 


55,162 


39,190 





Na das war ein Stück Arbeit. Da haben wir uns doch wieder 
eine kleine Pause verdient, ne? Wenn Sie Lust haben, erwei- 
tern Sie das vorstehende Programm um die Zeilen 5, 25, 35 
und 50. In Zeile 30 wird der ? durch ein PLOT ersetzt. Das 
INT können wir uns ruhig sparen, PLOT besorgt das Runden 
der Werte mit. In Zeile 20 können Sie auch ruhig einen 
kleineren STEP einsetzen oder den STEP auch ganz weg- 
nehmen. Hier noch einmal das komplette Programm zum 
abtippen: 
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e& GRAFHICS 26 

10 DEOS \ 

O FOR WINKEL=0 TO 360 STEP 22.5 

„5 COLOR 5 _ | 
0 ELLOT SIN{WINKEL) #24+39, COS (WINKEL) #959+75 
35 PLOT 39,95 

40 NEXT WInKE' 

0 GOTO 55 


Durch die längliche Form der Grafikpunkte wird der Kreis 
etwas eierig. Wenn Sie Lust haben, dann arbeiten Sie dieses 
Kreis-Programm doch auf HIRES um. Aber wenn Sie denken, 
sie würden dafür mit einem schönen runden Kreis belohnt - 
weit gefehlt. Ein Kreis in HIRES sieht auf den ersten Blick 
wirklich schön rund aus. Sie sollten sich aber die Mühe 
machen, einen Zirkel zu nehmen, und der Erscheinung 
wissenschaftlich zuleibe rücken. Selbst wenn Sie einen guten 
Fernsehapparat haben, werden Sie einen deutlichen Unter- 
schied zwischen dem Radius in X- und in Y-Richtung fest- 
stellen. Bildschirmzeilen und Punkte haben nämlich keinen 
gleichen Abstand, Quadrate werden als Rechtecke abgebildet, 
Kreise als Ovale. 


Wenn Sie bei einem gePLOTteten Kreis den Radius in X-Rich- 
tung und in Y-Richtung ausmessen und beide Werte durch- 
einander teilen, dann erhalten Sie einen Meßwert, den Over- 
scan ihres Bildschirmes. Wenn Sie also einen wirklich 
runden Kreis haben wollen, dann reicht es nicht aus, exakte 
Werte zu berechnen, sie müssen vor der Ausgabe auf dem 
Bildschirm den Overscan durch eine entsprechende Multipli- 
kation oder Division ausgleichen. Erst dann bekommen Sie 
einen wirklich runden Kreis auf die Mattscheibe gelegt. So 
krumm kann Technik sein. 


Jetzt ist aber endlich der Propeller fällig. Also die Idee 
war, acht verschiedene Stellungen des Propellers schnell 
hintereinander darzustellen. Im gewählten Grafikgang haben 
wir für Grafikpunkte acht Farben zur Verfügung, die mit 
COLOR 1 bis COLOR 8 aufgerufen werden können. 


Wir zeichnen je eine dieser acht Propellerstellungen in einer 
Farbe und setzen alle acht Farbregister auf 0 (=Schwarz). 
Das ist auch die Farbe des Hintergrundes. (Aber dann sieht 
man doch gar nichts!) Die Farbregister 705 bis 707 haben 
ohnehin den Anfangswert 0, die Register 708 bis 711 müssen 
wir entsprechend umPOKEn. Wenn die acht Propellerstellungen 
unsichtbar gezeichnet sind, verändern wir in wohlkalkulier- 
ter Reihenfolge die einzelnen Farbregister auf einen anderen 
Farbwert und wieder zurück auf Schwarz. So ist jedes Ein- 
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zelbild nur für einen kurzen Moment 
Bilder können fast beliebig schnell 
werden: 


10 

zo 

16) 

40 

18) 

50 

70 

BU 

I0 

100 
110 
120 
150 
140 
190 
160 
70 
180 
1.390 
ZOO 
10 
zEO 
RAR) 
zZ4u40 
Pte 18) 
z&O 
7 
z80 
230 
500 


10: 


20 bis 50: 


60: 
70: 


GRAPHICS 10 
FOKE 708,0 
AOKE 709,0 
POKE 710,0 
POKE 711,0 
COLOR 8 
PLOT 39,0 
DRAWTO 39,190 
COLOR 7 

PLOT 48,7 
DRAWTO 29, 182 
COLOR 6 

PLOT 55,27 
DRAWTO 22,162 
COLOR 5 

PLOT 61,58 
DRAWTO 16,131 
COLOR 4 

SLOT 63,95 
DRAWTO 15, 95 
COLOR 3 

PLOT 61,131 
DRAWTO 16,58 
COLOR 2 

PLOT 55,162 
DRAWTO 22, 27 
COLOR 1 

FLOT 48,182 
DRAWTO 29,7 
I=1+1 

IF I)8 THEN I=1 
POKE 704+1, 52 
POKE 704+1,0 
GOTO 300 


zu sehen und die acht 
hintereinander gezeigt 


schaltet GR.10 ein. Ein Textfenster steht hier nicht zur 
Diskussion. 


schaltet COLOR 8 ein, 
PLOTtet den Punkt 39,0 und 


setzen die Farbregister 708 bis 711 auf Schwarz. 


80: zieht eine Linie zum gegenüberliegenden Punkt der Kreis- 


bah 
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N. 


90 bis 290: bannen auf gleiche Weise die übrigen sieben Pro- 
pellerlinien auf die Scheibe. 


300: Hier wird ein Wert I fortlaufend gezählt und in 
310: auf 1 zurückgesetzt, wenn er größer 8 geworden ist. 


320: Mit diesem fortzählenden Wert | wird erreicht, daß bei 
jedem Durchlauf das folgende Farbregister auf einen Farb- 
wert gesetzt wird; ich habe Rosa (52) gewählt. 


330: schaltet die Farbe dann gleich wieder auf 0 und 


350: führt zu 300 zurück. Der vordere Programmteil muß 
nicht mehr abgearbeitet werden, die benötigten Linien sind 
ja bereits alle gePLOTtet. 


Na, dann man RUN. 


Und wieder einmal die große Enttäuschung? (Wie Sie sehen, 
sehen Sie nichts, oder besser fast nichts.) Das Umschalten 
der Farbwerte in den Registern geht tatsächlich so schnell, 
das ein ähnlicher Effekt wie im Film eintritt, wo bei einer 
bestimmten Geschwindigkeit die Räder eines Wagens scheinbar 
rückwärts laufen. 


Noch treffender ist der Vergleich mit einem Stroboskoplicht. 
Eine Lampe blitzt genau immer in dem Moment auf, wo der 
Propeller eine ganz bestimmte Stellung hat, und er steht 
augenscheinlich still. Werden die Blitze etwas schneller, er- 
wischt das Licht den Propeller immer etwas früher, und er 
scheint gar rückwärts zu laufen. Blitzt das Licht etwas 
langsamer, kommt der Propeller zwischen jedem Aufleuchten 
etwas mehr als einmal herum, und es sieht so aus, als ob 
er sich ganz langsam vorwärts bewegen würde. Und ganz 
ähnlich sieht das bei unserem Programmpropeller aus. Wie 
empfindlich dieser Effekt reagiert, können Sie feststellen, 
wenn Sie folgende Zeile in das Programm einfügen: 


340 FOR F=0 TO Ö:NEXT F 


Rein theoretisch ist diese Zeile wirkungslos. Aber der Rech- 
ner braucht doch einen winzigen Moment, um den Befehl zu 
registrieren und damit ja auch auszuführen. Und dieser un- 
bedeutende Moment von Sekundentausendsteln reicht aus, um 
den Propeller zum Rotieren zu bringen. Er läuft allerdings 
etwas tropisch-müde. 


Probieren Sie auch eine 1 im Schleifenzähler der Pause - 
Werte bis 5 ergeben interessante Effekte. 


Nachdem Sie nun mit den Pausen ausgiebig herumgespielt 
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haben, darf ich wohl wieder zum Ernst gemahnen. Denn 
wenn es auf den ersten Blick auch unsinnig erscheint, 
möchte ich Sie jetzt bitten (nachdrücklich), das ganze Pro- 
gramm noch einmal neu zu tippen und zwar in der folgenden 
Form: 


10 GRAFHICS 10 

20 POKE 708,0 

30 POKE 709,0 

40 FOKE 710,0 

50 POKE 711,0 

50 COLOR B:FLOT 39, 0:DRAWTO 39, 190 
70 COLOR 7:PLOT 48, 7:DRAWTO 29,182 
80 COLOR 6:PLOT 55, 27:DRAWTO 22,162 
30 COLOR S:FPLOT 61,58:DRAWTO 16,131 
100 COLOR 4:PLOT 63, 95:DRAWTO 15,95 
110 COLOR 3:PLOT 61, 131:DRAWTO 16,58 
120 COLOR ZIPLOT 55, 162:DRAWTO 22,27 
130 COLOR 1:FLOT 48, 182:DRAWTO 29,7 
140 I=I+1l 

150 IF D8 THEN I=l 

160 FOKE 704+1,52 

170 FOKE 704+1, 0 

180 50TO 140 


Dieses Programm ist vom Befehlsinhalt tatsächlich völlig 
identisch mit dem vorherigen, aber wenn Sie ihm ein RUN 
verpassen, sehen sie einen wirklichen Propeller! Warum? Es 
geschieht doch nichts anderes. Der Grafikgang wird einge- 
schaltet, die Farbwerte werden gePOKEt, die acht Linien in 
acht COLORs gezogen. Aha! COLOR-, PLOT- und DRAWTO- 
Befehle stehen in einer Zeile. Aber das kann doch gar keine 
Auswirkungen haben, denn wenn die PLOTs einmal erledigt 
sind, kommt das Programm doch gar nicht mehr in diese 
Zeilen. Oder doch? 


Auf jeden Fall ist augenscheinlich, daß diese Programm- 
version um ein Geringes schneller läuft. Und das kann ja 
nun doch nur damit zu tun haben, daß einige Befehle in 
einer BASIC-Zeile zusammengefaßt sind. 


Bei den Übungsprogrammen in diesem Buch steht meist nur 
ein Befehl pro Zeile, weil das übersichtlicher und besser 
abzuschreiben ist. Tatsächlich läuft ein Programm jedoch um 
Sekundenbruchteile schneller (und die zählen im Computer- 
Zeitalter), wenn möglichst viele Befehle in einer Zeile zu- 
sammengefaßt sind. 


In unserem Propellerbeispiel passiert folgendes. In der 
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letzten Zeile ergeht die Anweisung zu einem Rücksprung. 
für einen Computer, der seine Dummheit nur durch Fleiß und 
Pedanterie ausgleichen kann, bedeutet das, daß er von oben 
anfängt, jede Zeilennummer mit dem Rücksprungbefehl zu 
vergleichen, bis er schließlich die gesuchte Zeile ermittel 
hat. Und da hat er mit der zweiten Programmversion offen- 
sichtlich weniger zu tun, weil er weniger Zeilennummern 
durchzusehen hat. 


Würde das Programm also noch schneller laufen, wenn der 
Rücksprung über noch weniger Zeilen erfolgen würde? Pro- 
bieren Sie es aus. Der Propeller wird es Ihnen zeigen. 
Stellen Sie den Block mit der Rücksprungschleife an den 
Programmbeginn und die Zeilen, die ohnehin nur einmal be- 
arbeitet werden, schieben wir ans Ende: 


10 GRAPHICS 10 
>20 GOTO 80 

30 I=I+1 

40 IF D8 THEN I=i 

50 PÜKE 704+1,52 

60 FOKE 704+1,0 

70 60T0 30 

80 POKE 708,0 

30 POKE 709,0 

100 POKE 710,0 

110 POKE 711,0 

120 COLOR 8:PLOT 39,0:DRAWTO 39, 190 

130 COLOR 7:PLOT 48, 7:DRAWTO 29,18% 

140 COLOR 6:PLOT 55, 27:DRAWTO 22, 162 
150 COLOR 5:PLOT 61,58B:DRAWTO 16,131 
160 COLOR A:PLOT 65, 95:DRAWTO 15,95 

170 COLOR 3:PLOT 61, 131:DRAWTO 16,58 
180 COLOR 2:PLOT 55, 162:DRAWTO 22,27 
130 COLOR 1:PLOT 48, 182:DRAWTO 29, 7 

200 50TO 30 


Ein Propellereffekt läßt sich natürlich auch einfacher erzeu- 
gen, wie Sie schon in Abschnitt 3.4 erfahren haben, jeden- 
falls, wenn wir uns mit einem Strich als Rotorblätter 
zufrieden geben wollen. Bei der hier vorgestellten Methode 
können aber acht beliebige Bilder nacheinander gezeigt 
werden. Es ist ganz unerheblich, wie kompliziert diese 
Bilder sind und wieviel Rechnerzeit es kostet, sie auf dem 
Bildschirm aufzubauen, denn der Film läuft erst ab, wenn 
die acht Grafiken längst stehen. Wenn Sie die Mühe nicht 
scheuen, können Sie also richtige Rotorblätter PLOTten, Sie 
können aber auch acht Bewegungsphasen einer Comicfigur, 
eines Gesichtes, eines - viel Spaß! 
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4 Spiele! 


Was denn nun eigentlich Spiel sei, darüber machen sich 
gelehrte Männer schon lange ernstes Kopfzerbrechen. Man ist 
sich so ungefähr darin einig, das Spiel als Teil menschlicher 
Kultur zu betrachten. Eine menschliche Gruppe ist nicht 
ohne Spiele denkbar. Mit dem Spiel ginge auch das Mensch- 
liche verloren. Und gerade bei der Computertechnologie hat 
sich wieder gezeigt, wie sich der Mensch über das Spiel mit 
dem Fremden, Neuen vertraut macht. Erst die Computer-Spiele 
haben eine breitere Öffentlichkeit an den Computer gelockt. 


Teil das Lebens ist das Spiel auch gleichzeitig Abbild des 
Lebens, eine begrenzte Darstellung, vergleichbar mit einer 
Fotografie. Begrenzung ist ein herausragendes Merkmal von 
Spiel. Das Spiel braucht immer einen begrenzten Platz, das 
Spielfeld. Und die Spielregeln gelten auch immer nur für 
eine begrenzte Zeit, die Spieldauer. 


Natürlich werden auch Spieler benötigt. Bei manchen Spielen 
bewegen sich die Spieler selbst, bei anderen gibt es Figu- 
ren, mit denen sich die Spieler identifizieren. Sie tun so, 
als ob sie die Figur wären und in der Welt des Spielplans 
lebten. 


Der Spieler braucht einen Gegenspieler. Nur aus widerstre- 
benden Kräften entsteht ein Spiel (das freie Spiel der 
Kräfte). Ein Spiel allein braucht den Widerstand in einer 
bestimmten zu vollbringenden Leistung, doch das wirkliche 
Vergnügen bietet nur ein menschlicher Gegenspieler, der mit 
der ganzen Vielfältigkeit seiner Persönlichkeit reagiert, der 
Logik, Gefühl und Intuition ins Spiel bringt und immer 
wieder für Überraschung sorgt. 


Kontrahenten spielen also nicht wirklich gegeneinander. Sie 
spielen miteinander um die gemeinsame Freude, und notwen- 
digerweise führt der Kräftevergleich dazu, daß einer sich 
nur durchsetzen kann. Das Spiel macht aber (auch dem 
Sieger) nur Spaß, wenn nicht von vorne herein mit seinem 
Sieg zu rechnen war, d.h. alle Spieler müssen eine etwa 
gleiche Chance haben und notfalls werden schwächeren 
Spielern Vorgaben eingeräumt, um diese Angleichung zu er- 
reichen. 
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Computer-, Video-, Tele- oder wie sie immer heißen mögen, 
sind, in der heute üblichen Form, keine wirklichen Spiele. 
Sie sind ein billiger Erstazstoff einer Epoche, die: dabei ist, 
das Menschliche wegzurationalisieren. 


Die elektronische Unterhaltungsdroge macht abhängig, weil 
sie sich als Spiel anbietet, aber kein Spiel bietet. Schon 
wenn das Geldstück in den Schlitz gesteckt wird steht fest, 
wer am Ende gesiegt hat, nämlich die Maschine. Es fazszi- 
niert uns, daß ein totes Gerät scheinbar menschlich 
reagieren kann. Aber jede Kleinigkeit ist vorprogrammiert, 
jeder Spielzug, jede Reaktion ist vorab berechnet und alles 
läuft mechanisch und geistlos ab. Keines dieser Spiele, auch 
nicht der erfolgreichsten, hat sich länger als ein paar 
Monate in der Gunst des Publikums gehalten. Der Computer- 
Spieler sucht in immer neuen Angeboten endlich zu finden, 
was ihm versprochen wurde: Leben, doch er bekommt einen 
Roboter. 


Selbst um die Schach-Computer ist es nach kurzer Zeit wieder 
still geworden, weil sie einen menschlichen Gegner eben 
doch nicht ersetzen können. Und ist es nicht ein trauriges 
Bild, wie ein Mensch, einsam, gegen einen kleinen Kasten 
spielt. Ein paar Monate hat uns die technische Möglichkeit 
fasziniert. Äber das Schachspiel selbst schlägt die Mensch- 
heit seit Jahrhunderten in den Bann! 


Interessant könnten Computer-Spiele werden, wo die Elektro- 
nik das Spielbrett abgibt, eine Spielwiese mit nahezu 
unbegrenzten Möglichkeiten, auf denen sich menschliche 
Spieler begegnen können. Die Dimensionen des Spielens könn- 
ten damit unendlich erweitert werden. Doch in unserem Jahr- 
hundert der Einsamkeit werden Computer-Spiele gekauft, weil 
es an menschlichen Spielpartnern mangelt oder die elektroni- 
sche Sinnenbetäubung verlockender ist, als die Hinwendung 
zu einem Partner. 


Computer-Spiele finde ich auch interessant, wo der Spieler 
sie selbst programmiert. Das Programmieren ist das Spiel. 
Die Herausforderung, eine (Spiel-) Idee so zu durchdringen 
und in allen Aspekten zu verstehen, daß man in der Lage 
ist, jeden möglichen Zug vorzuprogrammieren. Wenn Sie sich 
diesem Spaß widmen wollen, haben Sie das richtige Buch in 
der Hand. Die Spiele, die Sie bald schreiben werden, werden 
Sie kaum spielen. Wenn das Programm geschrieben ist, dann 
ist das Spiel beendet. Das ist wie bei der elektrischen 
Modelleisenbahn. Wenn die Berge modelliert, die Schienen 
verlegt, die Signale verkabelt und die Landschaft gestaltet 
ist, ja dann fährt der Zug halt herum. Zuschauen istkein Spiel. 
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Al Der Spieler 


Eines der spannendsten Spiele ist es, ein Spiel zu program- 
mieren. Der Programmierer ist dann der Spieler, der sich 
auf dem Spielplatz des Computers mit der Logik als Gegner 
mißt. Aber wie jedes Spiel findet auch dieses sein Ende, 
wenn das Programm geschrieben ist. Allerdings - Künstler 
sagen oft, ihre Werke würden nie fertig. Immer gibt es noch 
eine Idee, etwas besser zu machen, zu verändern, zu pro- 
bieren, mit den Möglichkeiten zu spielen. 


So wird es Ihnen hoffentlich auch mit den Programmen 
ergehen, die Sie entwerfen und schreiben, wenn Sie dieses 
Buch ausgelesen endlich beiseite legen. 


Als erstes brauchen wir für unser Computer-Spiel eine Spiel- 
figur, die den Spieler darstellt, und wir müssen eine Ver- 
bindung zwischen dem Spieler und der Figur herstellen. Bei 
einem Brettspiel ist das selbstverständlich. Wir nehmen die 
Figur und setzen sie um. Aber den Spieler auf der Matt- 
scheibe kann man nicht anfassen. 


Wir haben also zwei Fragen zu klären. Wie stellen wir den 
Spieler mit den Mitteln des Computers dar? Und wie kann 
der Spieler bewegt werden? 


156 


4.1.1 Über STICK und Stein 


Die naheliegendste Möglichkeit, in das Spielgeschehen einzu- 
greifen, bietet die Tastatur. Das Keyboard ist ja ohnehin 
das Medium, über das wir die Maschine ansprechen. 


Der BASIC-Befehl INPUT (=Eingabe) unterbricht den Ablauf 
eines Programmes und wartet auf eine Eingabe über die 
Tastatur. Auf diese Weise können numerische Werte (INPUT n) 
oder Zeichenketten, Buchstaben, Ziffern, Wörter (INPUT s$) 
erfolgen. 


Der INPUT-Befehl könnte z.B. bei einem Ratespiel eingesetzt 
werden. Das Programm wählt eine zufällige Zahl (INT(RND(0) 
*99+41). Dann wird der Spieler aufgefordert, die Zahl zu 
raten. Ein INPUT liest den eingetippten Versuch in eine 
Variable und vergleicht diese mit der vom Computer ermit- 
telten Zahl. Ist der INPUT des Benutzers kleiner als die 
Zufallszahl, kann ein entsprechender Text ausgedruckt 
werden. Wenn sie größer ist natürlich auch. Dann ist der 
Spieler wieder an der Reihe, einen Tip abzugeben. Hat er 
irgendwann endlich die richtige Zahl eingelINPUTtet (oder: 
INgePUTtet?), also INPUT = Zufallszahl, ist das Spiel 
beendet. 


(Dieses Progrämmchen können Sie selbst schreiben. Wirklich, 
das können Sie. Oder wollen Sie etwa im Kapitel 5.1 nach- 
schauen?) 


Bei diesem Beispiel wird die Tastatur in der gewohnten 
Weise zur Kommunikation mit dem Rechner genutzt. Jede 
Taste bedeutet dabei genau das, was auf ihr draufsteht, 
nämlich A, B, C oder 3, 2, 1. Als Programmierer können 
wir den Tasten aber auch neue Bedeutungen zuweisen. Der 
Druck auf Taste N könnte den Spieler ein Feld nach oben 
rücken lassen, die Taste S den Abbruch des Spiels bewir- 
ken. So könnte theoretisch jede einzelne Taste mit einem 
Spielbefehl belegt werden, oder noch richtiger :jedes ATASCII- 
Zeichen, denn jedem dieser 256 Zeichen ist ein numerischer 
Wert zugeordnet. Beim Drücken einer Taste wird dieser Wert 
erzeugt und statt durch diesen Wert ein Zeichen auf den 
Bildschirm zu bringen, kann er von unserem Programm auch 
in anderem Sinne verarbeitet werden. 
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Neben den alpha-numerischen Tasten und den Steuertasten 
hat jeder Computer noch mehr oder weniger viele Funktions- 
tasten, die dem Programmierer zur freien Verfügung stehen. 
Bei Ihrem ATARI befinden sich diese Funktionstasten auf der 
rechten Seite und sind im Hinblick auf den Spieleinsatz mit 
OPTION (Vorwahl), SELECT (Auswahl) und START (Beginn) 
beschriftet, was uns aber nicht daran hindern kann, mit 
dem Druck auf die START-Taste den Abbruch des Spiels aus- 
zulösen. Die (SYSTEM) RESET-Taste ist keine frei belegbare 
Funktionstaste, aber das werden Sie inzwischen schon 
gemerkt haben, nehme ich an. 


Wie das mit den Funktionstasten funktioniert wollen Sie 
wissen?: 


10 ? PEEK (535279) :G0TO 10 


Was sehen Sie? Eine endlose Spalte von 7en flimmert über 
den Bildschirm. Und nun betasten Sie mal nach Herzenslust 
die Funktionstasten! Nur keine Angst, durch Tastendrücken 
ist kein Computer klein zu kriegen. Sie dürfen also ruhig 
zwei Tasten auf einmal drücken oder alle drei. 


In der Adresse 53279 wird registriert, welche Funktionstaste 
/n gedrückt ist/sind. Es können Zahlenwerte von O bis 7 
entstehen. Mit PEEK kibitzen wir in diese Adresse und ? 
bringt den aktuellen Wert an den Tag. 


Funktions- 
tasten 





Die verursachten Zahlenwerte können vom Rechner entspre- 
chend der von uns programmierten Anweisungen verarbeitet 
werden: 


500 F=PEEK (53279) Wert aus 53279 in Variable F 
BoaO IF F=3 THEN 100 OPTION gedrückt 

700 IF F=Z THEN A=12 OPTION und START gedrückt 
800 IF F=6 THEN END START gedrückt 
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Die Abfrage der Tastatur erfolgt auf ganz ähnliche Weise. 
Wir müssen dem Rechner nur bedeuten, daß wir die Tastatur 
abfragen und nicht Zeichen eintippen wollen. Dazu eröffnen 
wir einen Datenkanal zur Tastatur 


10 OFEN #1,4,0, "Kt" 
nehmen den Wert der gedrückten Taste in eine Variable 


=0 GET #1,T 
350 ? T 


und schließen den Datenkanal hinter uns 


40 CLOSE #1 
sO GOTO 10 


10: erOPENt den Datenkanal Nummer 1. Hier könnte auch 
eine andere Kanalnummer bis 23 stehen, es können also 
mehrere Datenkanäle nebeneinander geöffnet sein. Die Einga- 
be einer falschen Kanalnummer führt erst zu einer Fehler- 
meldung, wenn das Programm läuft: ERRÜR- zo AT LINE 10 
Der zweite Wert hinter OPEN ist die Kennzahl der Betriebsart 
(4=Eingabe), eine weitere Kennzahl folgt und zwischen den 


Anführungsstrichen steht das Gerätekennzeichen. "K:' leitet 
den Datenkanal zum Keyboard, "D:"iskettenstation, '"C:'"as- 
settenrekorder, "P:"rinter, "E:"ditor (Textfester), "S:'"creen 


(Grafikfenster) 


20: GET pickt eine Information auf und verstaut sie in der 
angegebenen Variablen. Nachdem in Zeile 10 der Datenkanal 
zur Tastatur eröffnet wurde, wartet das Programm in dieser 
Zeile, bis eine Taste gedrückt worden ist. Erst dann wird 
die nächste Zeile bearbeitet. GET wirkt also ähnlich wie 
INPUT. 


30: Der in die Variable T geGETtete Wert wird ausgePRINTet. 


40: Es klingt jetzt vielleicht banal, aber ein eröffneter 
Datenkanal muß geschlossen werden, bevor er wieder geöffnet 
werden kann. Soll durch das GET z.B. ein GOTO ausgelöst 
werden, vergißt man das schon mal schnell. Und dann hat 
der Rechner den Datenkanal voll und schmollt mit ERROR-. 
Also erst schön CLOSEn, dann erst 


50: zurückspringen. 


Ich hätt mir denken können, daß Sie's merken! Das Programm 
funktioniert, es ist auch sehr hübsch und ordentlich aufge- 
baut, aber für unseren Zweck hier wäre es auch viel 
einfacher gegangen. Wir springen in Zeile 40 nach 20 zurück 
und sparen uns den CLOSE-Befehl ganz, weil das Programm 
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endlos von 20 nach 40 läuft und nur unterBREAKt werden 
kann. Ein neuerliches OPEN kann gar nicht erfolgen. Solche 
Progrmmierstückchen sollte man sich aber erst leisten, wenn 
man die Befehle auch im Griff hat. 


Nun tippen Sie das Fünf-Zeilen-Programm schon ein und 
lassen es laufen! Was passiert, wenn Sie die Taste CAPS, 
INVERS oder CONTROL drücken und warum? Und wenn Sie 
BREAK drücken? Welchen Wert bringt CURSOR HOCH, TAB SET 
oder ESC? 


Wie bei den Funktionstasten lassen sich diese Zahlenwerte 
auch im Programm verarbeiten (Tasten-Trainer): 

10 OPEN #1,4,0, "Ka" 

20 GET #1,T 

50 IF T=Z27 THEN 7? "ESC' 


40 IF T=32 THEN ? "LEERTASTE" 

50 IF T=s125 THEN ? "CLEAR" 

60 IF T=126 THEN ? "BACK SPACE" 

70 IF T=127 THEN ? "TAR”" 

80 IF T=155 THEN ? "RETURN" 

30 IF T=156 THEN ? "DELETE" 

100 IF T=157 THEN "INSERT Zeile" 


120 IF T=159 THEN "TAR SET" 
150 IF T=-255 THEN "INSERT Zeıcthem' 
140 GOTOD ZOO 


Wenn Sie diesem Programm ein RUN geben, dann können Sie 
nach Herzenslust die Tasten rings um die Buchstaben herum 
befingern und auf dem Bildschirm lesen, was diese Taste/n 
bewirkt/en. 


7 

110 IF T=158 THEN °? "CLR TAB 
= 
2 


Eine weitere Eingabemöglichkeit ist typisch für Heim-Computer 
und zeigt die Abstammung vom Telespiel: die Joysticks (ganz 
freizügig übersetzt: Steuerknüppel). 


Der ATARI-Joystick (der auch bei Commodore und Sinclair 
verwendet wird) hat inklusive Ruhestellung neun mögliche 
Positionen und einen Trigger (Abzug, Feuerknopf). Stock 
und Knopf sind unabhängig voneinander und für beide gibt 
es einen ATARI-BASIC-Befehl (soetwas fehlt bei Commodore 
und Sinclair). STICK(0) fragt den Steuerknüppel ab, der in 
Buchse (Port) 1 gestöpselt ist. STRIG(0) bezieht sich auf 
den entsprechenden Feuerknopf. Der gute alte ATARI 800 
hatte noch vier Joystickports. Da es aber schon etwas 
besonderes ist, wenn bei einem Computerspiel zwei Leute 
miteinander spielen, wozu dann vier Anschlüsse. Kosten doch 
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nur Geld. Also haben die sparsamen Techniker bei den 
neuen XL-Modellen zwei Buchsen gestrichen. 


STICK(n) und STRIG(n) finden je nach Zustand des Joysticks 
verschiedene Werte. STRIG(n) ist 1 wenn der Feuerknopf 
nicht gedrück ist und 0, wenn er gedrückt ist. Die Werte für 
STICK(n) entnehmen Sie bitte der Abbildung: 





Halten Sie den Joystick immer so, daß der Feuerknopf oben 
links liegt. Ist der Steuerknüppel in Ruhestellung, findet 
STICK(n) den Wert 15, sonst den Zahlenwert, mit dem die 
entsprechende Richtung beschriftet ist. 
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Das folgende Demonstrationsprogramm zeigt Ihnen, wie mit 
diesen Befehlen gearbeitet werden kann: 


10 S=STICK (0) 

=20 F=STRIG(O) 

so IF 5=15 THEN ? „,:60T0 120 

an IF S=14 THEN ? "OBEN", , 

50 IF 5=153 THEN ? "UNTEN",, 

60 IF S=11 THEN 7? "LINKS",, 

70 IF 5=7 THEN ? "RECHTS", , 

80 IF S=10 THEN ? "LINKS OREN", 
a0 IF 5S=6 THEN ? "RECHTS OBEN", 
100 IF S=5 THEN "RECHTS UNTEN", 
110 IF 5=3 THEN "LINKS UNTEN", 
120 IF F=1 THEN N! 

150 IF F=0 THEN 
140 GOTOD 10 


"Rumm' 
10: Der Ausdruch STICK(0) könnte im Programm wie jede an- 
dere numerische Variable verwendet werden. Da dieser 
ausdruck aber acht Zeichen lang ist und damit nicht nur 
umständlich zu tippen ist, sondern auch entsprechend viel 
Speicherplatz belegt, ist es praktisch, den Wert aus STICK 
(0) einer handlicheren Variablen zuzuweisen. 


20: Das ist mit STRIG(0) nicht anders. 


3 I ..3 «3 


30: Jetzt fragen wir den Knüppel ab. Wenn S den Wert 15 
enthält, ist der Joystick in Ruhe. Der PRINT-Befehl mit den 
zwei Kommata bewirkt, daß zwei Tabulator-Stellennach rechts 
gesprungen wird. 


40 bis 110: treten in Aktion, wenn der Knüppel in irgend- 
einer anderen Stellung steht und PRINTen einen entsprechen- 
den Text aus. 


120 und 130: fragen den Knopf ab. 
140: führt zur erneuten Abfrage von STICKund STRIG zurück. 


Wie schnell diese vierzehn Programmzeilen abgearbeitet 
werden, können Sie schon daran sehen, daß es einiges Ge- 
schick erfordert, irgendeinen Ausdruck nur ein einziges Mal 
auf die matte Scheibe zu bringen. Versuchen Sie's doch mal. 
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4.1.2 Bewegte Zeichen 


Die einfachste Spielfigur, die der Computer für uns bereit- 
hält, ist ein ATASCII-Zeichen oder ein Grafikpunkt. Einem 
solchen Spieler wollen wir jetzt Beine machen. In GR.3+16 
hat unser Spielplatz 39 mal 23 Felder. Wir setzen einen roten 
Grafikpunkt in die Mitte dieser Fläche. Es gibt vier 
Richtungen, in die er sich bewegen kann. Es liegt also 
nahe, für jede Bewegungsrichtung eine Taste zu belegen, z. 
B. L für einen Schritt nach Links, R - na Sie wissen schon. 
Wir können aber auch die vier Cursor-Tasten für diese 
Steuerung verwenden, die ja mit entsprechenden Richtungs- 
pfeilen bedruckt sind: 


10° GRAFHICS 172 

z=20 PROkKE 708, SO 

50 COLOR 1 

ul) X=193 

S0 Y=11 

60 FLOT X,Y 

70 OFEN #3,4,0, 'K8" 

80 GET #5,5 

30 IF C=351 THEN X=X+1 
110 IF C=-50 THEN X=X-1 
150 IF C=#93 THEN YaYy+i 
150 IF C=Z28 THEN Y=Y-l 
170 PLOT X,Y 

180 GOTO 80 

1390 CLOSE #5 


10: schaltet GR.3 ohne Textfenster ein. 
20: wählt Farbton 50 (Rot) für COLOR 1 (Register 708). 
30: ruft COLOR 1 auf. 


40: setzt die Variable X auf 19. Sie wird später die Spalte 
bestimmen, während Y die Zeile abgibt. 


50: Deshalb wird Y hier auf 11 gesetzt. 


60: An die Stelle X,Y (19,11 = Mittelpunkt des Grafikfensters) 
wird ein Grafikpunkt gePLOTtet. 


70: eröffnet den Datenkanla zur Tastatur und 
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80: liest (GET) eine Information, nämlich den ATASCII-Wert 
der gedrückten Taste, in die Variable C. 


90: Die Taste CURSOR RECHTS hat den ATASCII-Wert 31. Wenn 
unser Grafikpunkt einen Schritt nach rechts gehen soll, so 
heißt das, der Spaltenwert (x) muß um 1 erhöht werden 
(X+1): WENN C=31 DANN X=X+1. 


1102 CURSOR LINKS (30) verringert den Spaltenwert (X=X-1). 
130: CURSOR UNTEN (29) vergrößert den Zeilenwert (Y=Y+1). 
150: CURSOR OBEN (28) verringert den Zeilenwert (Y=Y-1). 


170: Nach der Veränderung des Spalten- oder Zeilenwertes, 
kann an die neue Stelle X,Y ein Grafikpunkt gePLOTtet wer- 
den, COLOR 1 ist immer noch aktiviert. | 


180: führt zu 80 zurück, damit mit dem nächsten Tastendruck 
der nächste Punkt gePLOTtet werden kann. 


190: CLOSEt den Datenkanal, eine reine Formsache, denn 
dieses Programm kann Zeile 190 nie erreichen. 


(Nur damit keine Mißverständnisse aufkommen: Um die 
Cursor-Funktion der Tasten anzusprechen, muß CONTORL 
gleichzeitig gedrückt werden, klar doch.) 


Wenn Sie eine Taste lange genug gedrückt halten, setzt die 
Tastenwiederholungsfunktion ein. Sie müssen also nicht wie 
irre auf einer Taste herumhacken, um die gleiche Bewegung 
mehrmals auszulösen. 


Lassen Sie das Programm einmal RUN, tasten Sie CONTROL 
und + (d.i. CURSOR LINKS) und halten beide Tasten ge- 
drückt. Was geschieht: ERROR- 3 AT LINE 110 


Was ist denn nun schon wieder los? 


Sehen wir uns unser Machwerk einmal genauer an. Wenn wir 
ATASCII 30 auslösen, wird der X-Wert um 1 verringert. In 
Zeile 40 auf den Anfangswert 19 gesetzt, wird er 18. Das 
Spielchen geht weitere achtzehn Mal gut, dann ist X auf 
den Wert O0 heruntergekommen. Wenn wir jetzt noch einmal 
CURSOR LINKS drücken, setzt der gehorsame Rechner X noch 
einmal um 1 herunter, nämlich auf -I. Warum sollte er das 
auch nicht tun? Aber wenn er dann in Zeile 170 einen 
Grafikpunkt der Farbe COLOR 1 an die Bildschirmposition 
-1,11 schreiben soll, dann fragt sich die Maschine doch 
wohl mit Recht, wo dieser PLOT liegen soll, oder! 


Als Programmierer muß man eben an alles selber denken. 
Und wenn sich die Gurus der schönen neuen Computer-Welt 
den Mund fusselig reden über "künstliche Intelligenz", keine 
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Maschine kann denken, sie kann immer nur ausführen, was 
der Programmierer vorgedacht hat. Und wenn die natürliche 
Intelligenz etwas vergessen hat, dann bricht die künstliche 
Intelligenz das Programm ab oder gibt falsche Ergebnisse 
aus. 


Wie also können wir vorsorgen, daß durch die Zeilen 90 bis 
150 keine Werte erreicht werden, die von PLOT nicht ver- 
arbeitet werden können? X darf nie größer als 39 oder klei- 
ner als O0 werden. Diese beiden Fälle müssen wir benennen 
und für ihr Eintreffen Vorkehrungen treffen, indem wir 
befehlen, was geschehen soll, wenn X größer als 39 geworden 
ist. 


Diese Bedingung können Sie als Programmierer ganz souverän 
bestimmen. Das Programm könnte z.B. abgebrochen werden, 
ein GOTO könnte einen ganz neuen Programmteil einleiten 
oder an den Anfang (Zeile 10) zurückführen. 


Wenn die Bewegung des Grafikpunktes fortgesetzt werden 
soll, dann gibt es zwei prinzipielle Möglichkeiten. Wenn die 
Bewegung links aus dem Bild herausgeht (X größer 39), 
dann kommt sie rechts wieder herein (X=0) und umgekehrt. 
Oder wenn die Bewegung über den oberen Rand hinausgeht 
(Y kleiner 0) dann soll sie dort stehenbleiben (Y=0) und 
entsprechend für die anderen Ränder, Im folgenden Listing 
sind beide Möglichkeiten auf das vorhandene Programm 
angewandt. Sie hatten ja sicher schon bemerkt, daß ich 
entsprechende Zeilennummern ausgelassen hatte: 


10 GRAFHICS 19 
20 POKE 708,50 

30 COLOR 1 

40 X=19 

SO Yılı 

60 PLOT X,Y 

70 OFEN #3,4,0, "KH" 

BO GET #5,C 

30 IF C=3i THEN X=X#+i 
100 IF X)39 THEN X=Ü0 
110 IF C=30 THEN X=X-1 
120 IF X<D THEN X=39 
130 IF C=23 THEN Y=Y+1 
140 IF Y)23 THEN Yazı 
150 IF C=28 THEN Y=Y-1 
160 IF YO THEN Yu 
170 PLOT X,Y 

180 GOTD 80 

190 CLOSE #3 
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Fall Sie sich noch (wahrscheinlich ungern) an Herrn Boole 
und seine Operatoren erinnern (AND OR NOT), dann dann 
werden Sie nicht widersprechen wollen, daß sich diese um- 
ständlichen acht Zeilen auch kürzer fassen lassen, allerdings 
nur, wenn die Bewegung verharren soll, bevor sie in 
verbotene Zonen eintritt: 


100 X=Xrt(X<39) AND (C=51)) 
110 X=X-((X)0) AND (C=30)) 
120 YeY+tt (VE) AND (C=29)) 
130 Y=Y-(tYyOo) AND (C=i8)) 


(und die Zeilen 90, 140, 150 und 160 bitte löschen) 


100: Zu dem Wert X (Spalte) wird der Wert in der Klammer 
addiert. Der Wert der Klammer ist I, wenn beide Bedingungen 
(AND) erfüllt sind, also wenn CURSOR RECHTS (C=31) gedrückt 
wurde UND noch ein Schritt nach rechts erlaubt ist (X klei- 
ner 39). Trifft nur eine Bedingung nicht zu, ist der Wert 
der Klammer 0 und zu X wird 0 hinzugezählt, wovon es 
nicht viel hat. 


110 bis 130: verfahren nicht anders. 


Wenn wir nun mit dem roten Grafikpunkt über den Bildschirm 
spazieren, dann ziehen wir einen Rattenschwanz von Grafik- 
punkten hinter uns her. Soll sich nur ein einzelner Punkt 
bewegen, dann müssen wir die alte Position löschen, wenn 
wir die neue drucken: 


85 COLOR O:PLOT X,Y 
165 COLOR 1 


85: bevor die Koordinaten entsprechend dem Tastendruck (C) 
verändert werden, löscht Farbe O0 (Hintergrund) den alten 
Punkt. 


165: Bevor der neue Punkt gePLOTtet wird, müssen wir nun 
erst Farbe 1 einschalten, noch ist ja COLOR 0 aufgerufen. 
In der folgenden Zeile wird dann der Punkt gedruckt. Falls 
die Koordinaten inzwischen nicht verändert wurden, wird 
der Punkt eben wieder an die alte Stelle gesetzt. Allerdings 
führt diese Vorgehensweise zu einem leichten Flimmern durch 
das Ein- und Ausschalten. 


Wenn Sie diese beiden Zeilen in das bestehende Programm 
einfügen, streunt nur noch ein einsames Quadrat durch die 
Finsternis des leeren Bildschirms. 


Wenn wir uns als nächstes dem Spaß mit dem Joystick zu- 
wenden, dann ist nicht mehr viel Neues zu lernen. Ob Stock 
oder Taste, der Programmaufbau ist fast gleich: 
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10 REM JOYMOVEI1.BIR 

20 7? CHR$ (125) 

50 POKE 752,1 

40 SFA=19 

so ZEl=11i 

&0 ZUH:O 

70 ZUEH=ZCH+((STRIG(O)=0) AND (ZCH<(Z54)) 
80 IF ZCHZSS THEN ZCH=O 

30 SFA=SFA+C(STICK (O)=7) AND (SFA<(39)) 
100 SFA=SFA-((STICK (O)=11) AND (SPA)O)) 
110 ZEI=ZEI+((STICK(O)=135) AND (ZEI<(ZI)) 
120 ZEI=ZEI-((STICK (O)=14) AND (ZEI)O)) 
130 POSITION SFA, ZEI 

140 ? CHR&S(ZCH) 

150 GOTO 70 


10: Ein REM-Denkzettel 


20: ?? Was wird denn da geprintet? Ja hab ich denn nach 
166 Seiten noch nicht verraten, daß die Editierkommandos 
als PRINT-Anweisung programmiert werden können? Es gibt 
dafür zwei Möglichkeiten. Entweder der ATASCII-Code wird 
als CHR$(n) gePRINTet oder das Zeichen selbst als String. 
Nun werden aber die Editierkommandos durch Grafikzeichen 
dargestellt, die ein normaler Drucker nicht ohne weiteres 
aufs Papier zu bringen vermag. Deshalb bevorzuge ich hier 
den CHR$-Befehl. 125 ist der Code für CLEAR (Bildsschirm- 
löschen). Sie können Zeile 20 auch so schreiben ?"(Taste 
ESC)(Taste CLEAR)", dann haben Sie einen kleinen geknick- 
ten Pfeil als String und der löscht den Bildschirm. Entspre- 
chen können Cursorbewegungen, Löschen und Einschieben von 
Zeichen und Zeilen und TAB-Kommandos in ein Programm 
eingebaut werden. Die Taste ESC (ESCape = entkommen) 
wirkt immer nur für einen einzigen direkt folgenden Tasten- 
druck. 


30: schaltet den Cursor aus. 


40: Die Variable SPA wird auf 19 gesetzt. Sie wird später 
die Spalte bestimmen. 


50: Die Variable ZEI, hier auf 11 gesetzt, bestimmt später 
die Zeile. 


60: Die Variable ZCH wird bestimmen, welches Zeichen auf 
den Bildschirm gedruckt wird. Ersteinmal bekommt sie den 
Wert 0. 


70: Schon wieder der alte Boole (spricht sich übrigens 
'bu:1')! Wenn der Feuerknopf gedrückt ist (STRIG(0)=0) AND 
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die Variable ZCH kleiner als 254 ist, dann ist der Boolesche 
Ausdruck in der Klammer wahr, hat also den Wert 1, und 
ZCH wird um 1 erhöht (ZCH=ZCH+H). Ist der Ausdruck 
unwahr, die Klammer gleich 0, wird ZCH nicht erhöht. Ist 
doch ganz einfach. 


80: WennZCH größer als 255 ist, dann wird ZCH hier auf O 
gesetzt - weil der Zeichensatz nur 256 (0 bis 255) Zeichen 
umfaßt. 


Sie habens natürlich gemerkt. Zeile 80 ist wirkungslos, weil 
durch die Bedingung in Zeile 70 der Wert 255 gar nicht er- 
reicht werden kann. Fragen Sie in Zeile 70 den Feuerknopf 
mit IF-THEN ab oder lassen Sie Zeile 80 fort. Die beiden 
Varianten führen zu unterschiedlichen Ergebnissen. Im ersten 
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Fall kann kein neues Zeichen mehr mit dem Feuerknopf auf- 
gerufen werden, wenn einmal der Wert 255 erreicht ist; im 
zweiten Fall gehts dann wieder mit Zeichen O0 von vorne los. 


90 bis 120: verändern die SPAlte oder die ZEIlle je nach 
STICK(O)-Eingabe. 


130: POS.itioniert den unsichtbaren Cursor auf SPA,ZEI und 


140: wandelt den numerischen Wert ZCH durch CHR$ in das 
entsprechende ATASCII-Zeichen um und ?et es auf den Bild- 
schirm. 


Mit dem Joystick können Sie also auf dem Bildschirm hin 
und her steuern und durch Druck auf den Trigger das Zei- 
chen wechseln. Damit das nicht nur einmal klappt, führt 


150: nach 70 zurück. 
Probieren Sie's mal aus. (RUN!) 


Wenn Sie eine Weile auf der Mattscheibe Buchstabensuppe 
verkleckert haben, dann machen Sie bald ein paar über- 
raschende Erfahrungen. Probieren Sie folgendes. Sie fahren 
von der Mitte bis zum linken Rand. Wechseln Sie öfter mal 
das Zeichen.. Jetzt gehts nach oben, alles ruhig, dann nach 
rechts bis zum Anschlag, jetzt runter. Halt! Nur ein paar 
Zeilen. Gehen Sie jetzt ein paar Schritte nach rechts, dann 
ein gutes Stück nach unten und zurück zum rechten Rand. 
So und jetzt tippen Sie nur ganz sacht gegen den Knüppel, 
damit Sie nur einen einzigen Schritt nach oben machen. Was 
geschieht?! Und warum! 


Jetzt fahren Sie mal zum unteren Rand. Ab geht die Fahrt! 
Wenn Sie jetzt mit dem Joystick nur noch nach rechts und 
links steuern, können Sie einen wilden Slalom fahren und 
dabei ATASCII-Zeichen auf der Strecke lassen. Warum? 


Verantwortlich hierfür ist die Bildschirmverwaltung von 
GRAPHICS 0. Wird ein Zeichen in Spalte 39 gedruckt, springt 
der Cursor (auch wenn er unsichtbar gePOKEt wurde) sofort 
an den Anfang der nächsten Zeile und alle folgenden Zeilen 
werden um eins nach unten verschoben. Wenn Zeile 23 ver- 
lassen wird, müßte der Cursor nach Zeile 24 springen. Weil 
das nun mal nicht geht, werden alle Zeilen darüber um eins 
nach oben geschoben. Die oberste Zeile verschwindet dabei 
aus dem Bildschirm. 
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4.1.3 Genossen und Geschosse 


Mit Grafikpunkten oder ATASCII-Zeichen läßt sich eine Menge 
auf dem Bildschirm bewegen, aber Spielfigur und Spielfeld 
sind aus dem selben Holz geschnitzt, ihre Daten belegen den 
gleichen Speicher. Die Bewegungen des Spielers verändern 
das Spielfeld. 


Deshalb wurde die Sprite-Idee entwickelt. Das ist kein Er- 
frischungsgetränk sondern der Name für ein Zeichen, das in 
Farbe, Form und Bewegung autonom von der sonstigen Grafik 
definiert werden kann. Ein Sprite liegt gleichsam wie eine 
Transparentfolie über dem Grafikfenster. 


Das Programmieren von Sprites ist bei jedem Heim-Computer 
mehr oder weniger kompliziert gelöst, meist mehr. Bei ATARI 
heißt das Kunststück "Player-Missile-Graphic" (Spieler- 
Geschoß-Grafik) und ist nicht ein Kapitel für sich sondern 
ein ganzes Buch. Deshalb hier nur eine Kostprobe vom 
großen Kuchen. 


Um PM-Grafik zu programmieren, muß man einiges über die 
Speicherbelegung wissen und etliche Befehle durch direkten 
Speicherzugriff erteilen. Aber am Ende dieses Kapitels 
werden Sie zumindest einen Player gestalten und auf dem 
Bildschirm bewegen können. 


Insgesamt können vier Player (0 bis 3) und vier Missiles 
(0 bis 3) unabhängig von einander definiert werden. Die 
vier Missiles können auch zu einem fünften Player zusammen- 
gefaßt werden. Die Adressen der Player O bis 3 sind 53256 
bis 53259. In diese Adressen wird durch eine Kennzahl die 
Breite des Players auf dem Bildschirm festgelegt. Die Werte 
0 oder 2 ergeben eine normale Breite (16 Bildpunkte), 1 die 
doppelte und 3 die vierfache Breite. Also POKE 53256,0 be- 
stimmt für Player O0 die normale Breite. Das muß allerdings 
nicht extra gePOKEt werden, weil O0 der Grundzustand der 
Adresse ist. 


Mit POKE 53277,3 wird PM-Grafik eingeschaltet. Als nächstes 
muß in Adresse 54279 die Speicheradresse abgelegt werden, 
bei der die Daten der PM-Grafik beginnen. 


Wir schauen unter Adresse 106 nach, bis wohin der Speicher 
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bereits belegt ist. Der Wert in Adresse 106 gibt den freien 
Speicherplatz in pages (Seiten) an. Ein page faßt 256 Byte. 
PEEK(106) liefert den gesuchten Wert. Indem wir davon 8 
abziehen, reservieren wir acht Seiten im Speicher für unsere 
PM-Grafik. Mit diesem Wert werden Sie meist zurechtkommen. 
Diesen Wert müssen wir also in die genannte Adresse schrei- 
ben: POKE 53279, PEEK(106)-8 


Die Startadresse, bei der beginnend der Speicher mit den 
Daten unserer PM-Tabelle beschrieben werden kann ist also: 
TABSTART=256*PEEK(106)-8. 


Die Daten für Player und Missiles müssen in einer vorgege- 
benen Reihenfolge in den Speicher geschrieben werden, das 
nennt man Speicherorganisation. Wie die acht pages (=2048 
Byte) aufgeteilt sind, zeigt Ihnen die Tabelle unten. Die 
Zahlen für den Speicherbereich beziehen sich jeweils auf die 
Startadresse, die ich TABSTART genannt habe. Die Daten für 
Player O0 bei doppelzeiliger Auflösung beginnen also 512 
Speicherzellen tiefer als TABSTART und belegen die folgenden 
128 Adressen, jede Adresse faßt ein Byte. Für jeden Player 
sind also 128 Byte Speicherplatz reserviert. Diese Daten 
bestimmen seine grafische Form. Aus jedem einzelnen Bit 
(ein Byte setzt sich bekanntnlich aus acht Bit zusammen) 
wird ein PM-Grafikpunkt errechnet. Jeder dieser Grafikpunkte 
ist bei normaler Breite zwei Bildpunkte breit und bei doppel- 
zeiliger Auflösung zwei Bildschirmzeilen hoch. Bei doppelter 
Breite ist ein PM-Grafikpunkt vier Bildpunkte breit; bei 
einzeiliger Auflösung nur eine Bildschirmzeile hoch. 


doppelzeilig | einzeitie Speicherbereich 


Player O 512 - 639 


Player O 1024 - 1279 
Player 1 
Player 2 
Player 3 
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1280 - 1535 
1536 - 1791 
1792 - 2048 
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BRBBBEEE 


Dezinalwert 128 64 32 





Jedes der acht Bit eines Speicherbyte bestimmt einen Grafik- 
punkt. Ist das Bit gesetzt, wird ein Grafikpunkt ausgegeben, 
ist das Bit nicht gesetzt, wird kein Grafikpunkt ausgegeben. 


Ein Bit kennt nur den Zustand EIN oder AUS, der als O 
oder 1 dargestellt wird. Innerhalb des Byte ist jedem Bit 
eine Zweierpotenz als Dezimalwert zugeordnet. Das nieder- 
wertige Bit O0 entspricht 2 hoch O0 (=1), kann also gesetzt I 
und nicht gesetzt 0 abgeben. Das höchstwertige Bit 7 ent- 
spricht dem Dezimalwert 128, wenn es gesetzt ist. Das Byte 
als ganzes kann also Dezimalwerte von O (alle Bits nicht 
gesetzt) bis 255 (alle Bits gesetzt) annehmen. 


Bildlich gesprochen malen wir die Grafikpunkte unseres 
Players Bit für Bit in ein Byte und addieren die Dezimal- 
werte der gesetzten Bits. So erhalten wir einen Dezimalwert, 
der als Wert in eine Speicherzelle des Player-Speicherberei- 
ches geschrieben werden muß. 


Jedes Byte umfaßt acht PM-Grafikpunkte, die in einer Zeile 
nebeneinander liegen. Zeile für Zeile wird der Player zu- 
sammengesetzt, die Bit-Muster der einzelnen Bytes ergeben 
seine Form. Da die Speicherorganisation 128 Adressen für 
einen Player freihält, kann er 128 Grafikpunkte hoch sein. 


Dezinalwert 
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erstes 
zweites 
drittes 
viertes 
fünftes 
sechstes 
siebtes 
achtes 


neuntes 


128 64 32 


16 


512+Y,60 
513+Y, 66 
514+Y,129 


515+Y, 165 


516+Y, 165 
517+Y, 129 
518+Y, 165 
519+Y, 153 
520+Y,66 


zehntes 





Ein Player ist also ein Byte breit und das entspricht je 
nach Auflösung 16, 32 oder 64 Bildpunkten und 128 Byte 
hoch, was bei doppelzeiliger Auflösung 256 Bildschirmzeilen 
entspricht. Bei einzeiliger Auflösung ist der Player 256 Bytes 
hoch, also auch 256 Bildschirmzeilen. Die Player sind also 
höher als das Grafikfenster (192 Bildschirmzeilen), das heißt 
aber nicht, daß auch alle diese Zeilen für den Player 
gestaltet werden müssen. 


Die Abbildung oben zeigt Ihnen das Bit-Muster des Players, 
den Sie in dem folgenden Programmbeispiel wiederfinden 
werden. Er ist zehn Bytes hoch. Rechts neben dem Bit-Muster 
sehen Sie die entsprechende POKE-Anweisung, beginnen mit 
dem ersten Speicherplatz für Player 0 (512), in den der 
Dezimalwert (60) für das entsprechende Bitmuster geschrieben 
wird. Der Wert Y bestimmt die vertikale Position des Players 
und der Wert der Startadresse muß noch addiert werden. 
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SDMCTL Register 558 DGRODDOR 


Dezinalwert 128 64 32 





Eine besondere Bedeutung kommt dem Register 559 (Kurzbe- 
zeichnung SDMCTL) zu. Stellen Sie sich das Register wie 
eine Reihe von Schaltern vor. Jedes einzelne Bit ist ein 
Schalter, mit dem bestimmte Wirkungen eingeschaltet werden 
können. 


Normalerweise steht in 559 eine 34. Dieser Wert entsteht, 
weil Bit 5 (Dezimalwert 32) und Bit 1 (=2) gesetzt sind. Da- 
durch erfährt ANTIC, daß er ein Grafikfenster von 320 Bild- 
punkten Breite und 192 Bildschirmzeilen Höhe ausgeben soll. 
Werden durch POKE 559,33 Bit 5 und Bit 1 gesetzt, verändert 
sich die Form des Grafikfensters. Am besten können Sie das 
beobachten, wenn Sie in GR.O ein Listing oder sonst irgend- 
einen Text auf dem Bildschirm haben und dann POKE 559,33 
als Direkteingabe vornehmen. 


Eine weitere Variante ist möglich, wenn Bit 5, 1 und O 
(=35) gesetzt werden. Um das Durcheinander auf der Matt- 
scheibe wieder in die gewohnte Ordnung zu bringen, geben 
Sie POKE 559,34 direkt ein. 


Für PM-Grafik müssen weitere Bit-Schalter betätigt werden. 
Bit 4 bestimmt die Zeilenauflösung. Wird hier eingeschaltet, 
ist die Auflösung einzeilig und die Player-Daten müssen ab 
1024 der Speicherorganisation abgelegt werden; steht hier 
eine 0, ist die Auflösug doppelzeilig und die Playerdaten 
beginnen bei 512. 


Sollen nur Player definiert werden, muß Bit 3 (=8) gesetzt 
werden. Sollen auch Missiles zum Einsatz kommen, muß auch 
Bit 2 (=4) gesetzt werden. 


Das Register 559 steuert den Direct Memory Access (direkter 
Speicherzugriff). Normalerweise sind Bit 5 und 1 (=32) ge- 
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setzt. Wenn Sie auch diese beiden Bits ausschalten (POKE 
559,0), erfolgt keine Ausgabe an den Bildschirm. Dadurch 
wird sehr viel Rechnerzeit gespart. Ein Programm kann so 
fast ein Drittel schneller laufen. Wenn die Bildschirmaus- 
gabe wieder benötigt wird, dann schaltet POKE 559,34 den 
Grundzustand wieder ein. 


Die horizontale Position des Players auf dem Bildschirm wird 
durch einen entsprechenden Wert im vorgesehenen Register 
bestimmt. Die Adressen für die horizontale Position von 
Player 0 bis 3 sind 53248 bis 53251, für Missile O0 bis 3 
53252 bis 53255. Der Wert O0 bestimmt die Positon ganz links, 
der Wert 255 ganz rechts. 


Die vertikale Position des Players wird dadurch bestimmt, 
wo sich in seinem Speicherbereich die Daten befinden. Der 
Player reicht über die gesamte Höhe des Bildschirms (und 
noch ein Stückchen weiter). Seine Gestalt wird durch Bit- 
Muster bestimmt. Üblicherweise ist der Player nur einige 
Bytes hoch. Werden diese Daten in einen anderen Speicher- 
bereich des Players verlegt, so erzeugt das Bit-Muster ein 
Bild an einer vertikal verschobenen Position. 


Um den Player hin und her zu bewegen, muß also nur ein 
Wert in einer Adresse geändert werden. Das geht fix. Um 
den Player aber rauf und runter zu bewegen, müssen seine 
gesamten Daten aus den alten Adressen in die neuen 
geschaufelt werden. Das braucht seine Zeit. 


Bevor ich nun endlich das Programmbeispiel auf Sie zulasse, 
müssen wir uns noch kurz über die Farbe unterhalten. Die 
Farbregister 704 bis 707 (die sonst nur bei GR.1O genutzt 
werden) nehmen die Farbwerte für Player+Missile O0 bis 3 
auf. Und in der Adresse 623 wird über die Prioritäten ent- 
schieden. Steht hier eine 1, befinden sich alle Player vor 
der normalen Grafik. Mit einer 4 befindet sich die Grafik 
vor allen Playern. Mit einer 2 erscheinen Player O0 und I 
vor der Grafik, Player 2 und 3 dahinter. Mit einer 8 sind 
Grafikpunkte, die sich auf Farbregister 708 oder 709 be- 
ziehen vor den Playern, die Grafikpunkte in Farben aus 
Register 710 und 711 dahinter. 


Falls Ihnen jetzt doch ein wenig der Kopf schwirren sollte, 
dann tippen Sie einfach mal das folgende Programm ein, 
stöpseln den Joystick in Port 1 und jagen das grinsende 
Gesicht hinter den rosa Gitterstäben hin und her. Danach 
allerdings sollten wir das Player-Missile-Programm doch 
noch einmal zusammen Zeile für Zeile durchgehen, oder?: 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
„10 
RO 
2350 
240 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1150 
1140 
1150 
1200 
1210 
1220 
1230 
1240 
250 
1260 
1270 
1280 
ZOOO 
2010 
2020 
2030 
zZOAD 
zZ100 
2110 
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GRAPHICS 19 
FOKE 708, 50:POKE 710,54 
COLOR 3 
FOR Y=0 TO 
FÜR X=0 TO 
PLOT X,Y 
NEXT X 
NEXT Y 
COLOR 1 
FOR X=2 TO 39 STEP 5 
PLOT X,O:DRAWTO X, 25 
NEXT X 
FOR Y=4 TO 235 STER 8 
FLOT 0,Y:DRAWTO 39, Y 
NEXT Y 

REM FM-GRAF IK 

POKE 623,8 
X=120:Y=60 

P=PEEK (106) -8 

FOKE 54273, P 
TABSTART=P+256 

POKE 704,10 

FOKE 5593,42 

FOKE 53277,3 

POKE 53256,0 

POKE 53248, X 

FOR J=TABSTART+S12+Y 
READ D 

POKE J,D 

NEXT J 

DATA 60, 66, 129, 165, 165, 129, 165, 153, 66, 60 
REM BEWEGEN DES FLAYERS 

M=STICK (0) 
IF M=15 THEN 


23 
39 


TO TABSTART+SZI+FY 


1210 


IF M=7 THEN X=X+1 
IF M=11 THEN X=X-1 
POKE 53248, X 


IF M=15 THEN GOSUR 2000 
IF M=14 THEN GOSUR 2100 
GOTD 1210 

FOR J=10 TO 0 STEF -1 


POKE TABSTART+S12+Y+J, FEEK CTABSTART+SI1IFY+D 
NEXT J 

Y=Y+1 

RETURN 

FOR J=0 TO 10 

POKE TABSTART+S11+Y+J, FEER CTABSTART+S1IZ+HY+H+ID) 


2120 NEXT J 

2150 YzY-—l 

zıa0 RETURN 

100: Der PM-Grafik ist es völlig egal, in welchem Grafik- 
modus mit oder ohne Textfenster der Hintergrund aufgebaut 
wird. 


110 bis 240: bauen diesen Hintergrund oder Spielfeld auf. 
Es besteht aus Grafikpunkten, die vom Farbregister 710 mit 
COLOR 3 gefärbt werden. Diese Grafikpunkte werden später 
hinter dem Player liegen. Dann werden mit COLOR 1 Gitter- 
stäbe gezogen. Und die sollen natürlich vor dem Player 
liegen. 


1000: Hier beginnt die PM-Grafik. Die Reihenfolge der näch- 
sten zehn Zeilen ist unbedeutend. 


1010: bestimmt die Prioriät. Der Grinse-Player befindet sich 
hinter den Gitterstäben. Es wäre aber denkbar, durch Druck 
auf den Feuerknopf der Wert in dieser Adresse auf 1 zu 
verändern. Probieren Sie aus, was dann geschieht, indem 
Sie in dieser Zeile mal eine I POKEn. 


1020: Werte für die horizontale (X) und vertikale (Y) Lage 
des Players werden in Variablen notiert. 


1030: Hier werden acht Seiten Speicherplatz reserviert. Da 
dieses Programm nur mit doppelzeiliger Auflösung arbeitet, 
würden vier Seiten ausreichen. 


1040: Der in 1030 ermittelte Wert wird in Adresse 54279 ab- 
gelegt, und 


1050: in der Variablen TABSTART (die auch SONSTWIE heißen 
könnte) wird die Anfangsadresse für die PM-Tabelle abgelegt. 


1060: Für Player O0 wird in Register 704 die Farbe 10 (fast 
Weiß) bestimmt. 


1070: Instruction Fetch DMA, Player DMA und normales Spiel- 
feld werden eingeschaltet. 


1080: schaltet PM-Grafik ein. Probieren Sie hier ruhig einmal 
andere Werte aus. Durch falsches Programmieren kann ja 
nichts am Computer beschädigt werden. Aber vielleicht 
machen Sie ein paar interessante Entdeckungen mit den 
Werten 1 oder 2. 


1100: Hier wird die horizontale Position für Player 0 abge- 
legt und durch Veränderung dieses Wertes kann der Spieler 
später hin- und hergeschoben werden. 
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1110: Jetzt werden die Daten für den Player in die entspre- 
chenden Speicheradressen eingelesen. Wie der Player aussehen 
soll und welche Dezimalwerte ihn darstellen, wurde in der 
Grafik auf Seite 173 ermittelt. Er ist zehn Datenbytes hoch, 
es müssen also zehn Adressen beschrieben werden. Die 
Speicherorganisation sieht vor, daß der doppelzeilig aufge- 
löste Player 0 von 512 bis 639 reicht (s. Tabelle Seite 171). 
Der Spieler soll aber nicht in der obersten Adresse beginnen 
(oben im Billdschirm liegen), sondern um Y (=60) Zeilen 
tiefer. Wir schreiben die Datenbytes also ab 512+Y in die 
Speicher. In der Variablen TABSTART haben wir die Anfangs- 
adresse der Player-Missile-Tabelle notiert. Diesen Wert 
müssen wir nun noch addieren, dann haben wir die Nummer 
der Speicherzelle, in die das erste Datenbyte unseres Players 
geschrieben werden muß. Das letzte Byte wird zehn Adressen 
tiefer geschrieben, die zehn Bytes müssen also von 
TABSTART+512+Y bis TABSTART+521+Y abgelegt werden. Und 
das besorgen wir durch eine FOR-NEXT-Schleife, deren 
Schleifenzähler J in dieser Zeile von der ersteren bis zur 
letzteren Adresse definiert wird. 


1120: liest die Dezimalwerte für den Player in die Variable 
D, die DATA-Zeile folgt unten. 


1130: In die vom Schleifenzähler J bestimmte Adresse wird 
der jeweils gelesene Dezimalwert D gePOKEt. 


1140: beendet die Schleife. 


1150: enthält die DATA des Players als Dezimalwerte. Wenn 
Sie hier ein RUN geben, können Sie den Player schon mal 
anschauen, 


1200: aber er soll ja auch noch bewegt werden. 
1210: Dazu fragen wir STICK(0) ab. 


1220: Wenn der Stick in Ruhestellung ist, wird sofort zur 
neuerlichen Abfrage zurückgesprungen. 


1230: Wird der Steuerknüppel nach rechts gedrückt, soll 
sich der Player natürlich nach rechts DENE: seine hori- 
zontale Position wird vergrößert. 


1240: Bei der Bewegung nach links verkleinert sich der Wert 
für die horizontale Position. 


1250: Hier wird der veränderte (oder alte) Wert der horizon- 
talen Position in die entsprechende Adresse gePOKEt. 


1260: Soll sich der Player vertikal bewegen, dann sieht die 
Sache etwas anders aus. Die Werte des Players müssen aus 
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den alten Adressen gelesen und in die neuen Adressen hhinein- 
geschrieben werden, die der neuen Position entsprechen. Für 
die Bewegung nach unten wird hier die Subroutine von Zeile 
2000 angesprungen. Das ist nicht notwendig, es erlaubt nur 
eine bessere Übersichtlichkeit, weil dann jedes Kommando in 
einer gesonderten Zeile stehen kann. Da die BASIC-Zeile 
eine solche Portion verkraftet, können Sie aber auch den 
Inhalt der Zeilen 2000 bis 2030 statt des GOSUB 2000 in 
dieser einen Zeile (durch : getrennt) unterbringen. 


1270: Sprung zur Subroutine für Bewegung nach oben. 
1280: Rücksprung zur erneuten Joystick-Abfrage. 


2000: Subroutine für die Bewegung nach unten. Der Inhalt 
der zehn Register muß gelesen und dann je eine Adresse 
tiefer abgelegt werden. Um die Adresseninhalte nicht zu 
überschreiben, beginnen wir mit der tiefsten Adresse 
TABSTART+512+Y+10. Diese Adresse ist leer (=0), denn die 
Daten des Players hören eine Adresse höher auf. In dieser 
Adresse TABSTART+512+Y+9 lesen wir den Wert (PEEK) und 
POKEn ihn in die oben genannte Adresse. 

Die FOR-NEXT-Schleife geht die Werte einzeln rückwärts 
durch, bis als letztes in die Adresse TABSTART+512+Y+0 der 
Wert aus der: nächsthöheren Adresse gePOKEt wird, und der 
ist 0. Würden wir die jeweils letzte Speicherzelle im elften 
Arbeitsgang nicht löschen, würde der Player Linien hinter 
sich herziehen. 

Wie das gemeint ist, können Sie ausprobieren: Steuern Sie 
mit dem Player immer weiter nach oben. Er verschwindet 
aus dem Bild, d.h. da wir keine entsprechende Sicherung 
eingebaut haben, werden Speicherzellen abgefragt, die für 
unseren Player 0 gar nicht mehr zuständig sind. Wenn Sie 
dann wieder nach unten fahren, kann es sein, daß durch 
den Vorgang des Umschreibens der Speicherinhalte in die 
jeweils tiefere Adresse ein fremder Speicherinhalt verschleppt 
wird, der, wenn er den Speicherbereich des Players erreicht, 
in Grafikpunkte umgewandelt wird. Die letzte Adresse ent- 
hält dann keine 0 mehr, die hinter dem Player löscht, 
sondern irgendeinen Wert, der in irgendwelche Grafikpunkte 
umgesetzt Zeile um Zeile ausgegeben wie eine Schleifspur 
auf dem Weg nach unten hinterhergezogen wird. 


2010: Hier wird in die tiefere Adresse der Wert aus der 
nächst höheren geschrieben. 


2020: Der Vorgang wird 1I1mal (10 bis O0) wiederholt. 


2030: Um auf dem Laufenden zu bleiben, muß abschließend 
der Wert für die vertikale Position (Y) noch um 1 vergrößert 
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werden (= Bewegung nach unten). 
2040: beendet die Subroutine vorschriftsmäßig mit RETURN. 


2100: Wenn die Speicherwerte nach oben verlegt werden sol- 
len, dann gehen wir genau umgekehrt vor. 


2110: Wir PEEKen die höchste Adresse und POKEn ihren Wert 
noch eine Speicherzelle höher. 


2120: Das tun wir ebenfalls I1mal, damit der letzte Wert ge- 
löscht wird. 


2130: Dann verringern wir den Wert der vertikalen Position 
2140: und beschließen die Subroutine. 


Natürlich ist es auch möglich, den Player diagonal zu 
bewegen. Auf den entsprechenden Joystick-Wert werden sowohl 
die horizontale als auch die vertikale Bewegung ausgeführt. 
(Dazu müßten natürlich noch ein paar Programmzeilen einge- 
fügt werden, muß ich das extra erwähnen?) 


Wenn Sie jetzt mit dem Grinse-Player herumfahren, sehen 
sie, wie schnell er nach rechts und links gesteuert werden 
kann und wie lange das Umschreiben der Speicherinhalte 
dauert. (Und Sie ahnen auch, warum bei manchen Computer- 
Spielen nur Rechts-links-Bewegungen möglich sind.) 


Der Player ist von Grafikfenster unabhängig. Sie können mit 
ihm Bildschirmbereiche besuchen, die außerhalb des Grafik- 
fensters liegen. Wenn Sie nach rechts oder links aus dem 
Bild herausfahren, dann kommt irgendwann ein ERROR- 3. 


Nach oben und unten können Sie ganz schön lange fahren, 
wenn Sie wollen, bis sie dadurch irgendwann eine Speicher- 
zelle erreichen und ihren Wert zerstören, der für irgendeine 
andere Funktion wichtige Daten enthält. Es ist deshalb 
sinnvoll durch eine entsprechende IF-THEN-Abfrage zu ver- 
hindern, daß die Playerdaten aus dem ihnen zugewiesenen 
Speicherbereich hinauswandern. 


Wenn Sie BREAK drücken, werden die Playerdaten nicht 
gelöscht, aber der Wert in 53277 wird verändert. Es entsteht 
an der Stelle des Players ein ungeordnetes Flimmern. Sie 
brauchen sich keine Sorge um Computer oder Fernseher zu 
machen. Beiden ist ziemlich egal, was sie ins Bild setzen. 
An dem Flimmern können Sie aber sehr schön die gesamte 
Ausdehnung des Players erkennen. 


Wenn Sie das Programm jetzt erneut starten, dann haben Sie 
wahrscheinlich anfangs zwei gleiche Player in der selben 
Spalte auf dem Bildschirm, aber nur einer davon bewegt 
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sich auch vertikal, wenn Sie den Steuerknüppel nach oben 
oder unten drücken. In dem Moment, als Sie die BREAK-Taste 
gedrückt haben, befand sich der Player in Form von Daten 
in bestimmten Speicherzellen. Und diese Daten wurden durch 
BREAK auch nicht gelöscht. Als Sie das Programm neu ge- 
startet haben, wurden die Playerdaten wieder in die Adres- 
sen der Anfangsposition geschrieben. Auf dem Bildschirm 
erscheinen dann alle diese Daten als Grafikpunkte. Der alte 
Player behält seine vertikale Position bei, die Daten des 
neuen Players wechseln die Register. Durch seine Bewegung 
kann der neue Player den alten erreichen und löschen. Um 
aber diese Datenverdoppelung zu vermeiden ist es sinnvoll, 
bei Programmbeginn den gesamten Speicherbereich des Players 
zu löschen: 


=OR J=TABSTART+S12 TO TABSTART+639:POKE J,O (=128 Adr.) 


Abschließend für Tüftler und Jung-Hacker weitere Tips in 
Kurzform: 


Missiles werden wie Player behandelt. Ihre Bewegung sollte 
nur einmal initiiert selbsttätig ablaufen. Durch Dosierung 
der X- und Y-Werte können Geschosse in jede Richtung flie- 
gen. Ein Missile ist in der normalen Auflösung nur ein Bit 
(= 2 Bildpunkte) breit. Die horizontale Position für Missile 
0 bis 3 liegt in Adressen 53252 bis 53255. Missiles O0 bis 3 
können auch zu Player 4 zusammengefaßt werden. 


Geschosse müssen auch treffen. Kollisionsregister: 


Missile-Spielfeld O bis 3 in 53248 bis 53251 
Player-Spielfeld O0 bis 3 in 53252 bis 53255 
Missile-Player O bis 3 in 53256 bis 53259 
Player-Player O bis 3 in 53260 bis 53263 


Und wenn es gekracht hat, muß das Kollisionsregister 53278 
durch irgendeinen Wert ungleich O0 gelöscht werden, damit es 
für den nächsten Zusammenstoß vorbereitet ist. 


Was sich hinter diesen geheimnisvollen Registern verbirgt 
(und noch wichtiger: in ihnen), das kann an dieser Stelle 
nicht mehr im Detail erklärt werden, sonst würde das Buch 
aus den Deckeln platzen. Wenn Sie aber Spaß an Denksport- 
aufgaben haben, dann können Sie mit Probieren, Beobachten, 
Nachdenken und Vergleichen sich selbst Ihren PEEK und POKE 
darauf machen. 
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4.2 Das Spielfeld 


Das Spielfeld ist der begrenzte Platz, auf dem das Spiel 
stattfindet. Das Spielfeld ist sichtbarer Ausdruck der Spiel- 
regeln. Seiner Gestaltung kommt deshalb große Bedeutung zu. 


Bei Computer-Spielen ist der TV-Schirm der Schauplatz des 
Geschehens. In der einfachsten Form kann die Mattscheibe 
wie eine Anzeigetafel verwendet werden und als Kommunika- 
tionsmedium zwischen Spielleiter (Computer) und Spieler 
fungieren. Die Ausgabe erfolgt in Zeichen, aber selbst wenn 
mit grafischen Elementen oder richtiger Grafik immer mehr 
gestaltet wird, bleibt doch das Prinzip der Schautafel 
erhalten. 


Eine Übergangsform ist, wenn die Bildschirmgrafik nur 
einen Hintergrund abgibt, vergleichbar mit einer Kulisse, 
vor der das Spiel abläuft, die aber auf das Spielgeschehen 
nicht einwirkt. Bei dem Player-Missile-Programm im vorheri- 
gen Kapitel hatte die Grafik eine solche Funktion. 


Interessanter wird es jedoch, wenn der Bildschirm zum 
Parcours wird, wenn also bestimmte Teile der Grafik wech- 
selnde Wirkungen haben, die Geschwindigkeit des Spielers 
verlangsamen (Morast), undurchdringlich sind (Dornenhecke) 
oder gar tödlich wirken (Fallgrube). 


Es gibt zwei grundlegende Möglichkeiten, ein solches "aktives" 
Spielfeld zu gestalten. Die direktere Methode besteht darin, 
verschieden wirksame Teile des Spielfelds in verschiedenen 
Farben zu PLOTten. Mit dem LOCATE-Befehl können die 
COLOR-Werte im Spielverlauf gelesen und entsprechend ver- 
arbeitet werden. Das bedingt jedoch, daß es nur so viele 
Spielfeldwirkungen gibt, wie Farbwerte zur Verfügung stehen 
und das Spielfeld keine Geheimnisse enthält. Der Bildschirm- 
speicher ist gleichzeitig der Schiedsrichter, der das Spiel- 
geschehen steuernd überwacht. 


Die zweite Methode ist etwas aufwendiger, dafür aber auch 
vielseitiger. Die Schiedsrichter-Informationen werden unab- 
hängig von der Grafik und ihrem  Bildschirmspeicher 
aufbewahrt. Dazu bietet sich eine doppelt indizierte Variable 
an, die so viele "Fächer" wie das Grafikfenster Positionen 


182 


hat. Jede Bildschirmposition ist dann der entsprechenden 
Variablen zugeordnet, und die Variable kann beliebige Werte 
für beliebige Reaktionen beinhalten, die auf dem zugeordne- 
ten Spielfeldplatz wirksam werden. Dieser doppelt indizierte 
Schiedsrichter ist für den Spieler unsichtbar. 


Zuerst also ein Beispiel für das LOCATE-Prinzip. Das Spiel- 
feld besteht aus einem breiten Burggraben (blau). Der 
Graben kann durchwatet werden, dabei ist die Bewegung 
aber verlangsamt. Als nächstes folgt die undurchdringliche 
(gelbe) Burgmauer. Im Zentrum des Burghofs liegt der 
Schatz als goldenes Quadrat. Der Spieler beginnt oben links 
in der Ecke als orangefarbener Grafikpunkt-Äbenteurer. 
Wenn er den Schatz im Zentrum berührt, ist das Spiel 
beendet: 


100 GRAPHICS 19 
105 COLOR 5 

110 PLOT 11,3 
120 DRAWTD 28,5 
130 DRAWTO 28, 20 
140 DRAWTO 11,20 
150 DRAWTO 11,3 
160 PLOT 12,4 
170 DRAWTO 27,4 
180 DRAWTO 27,19 
190 DRAWTO i2, 19 
200 DRAWTO 12,4 
210 PLOT 13,5 
220 DRAWTO 26,5 
230 DRAWTO 26,18 
240 DRAWTO 13,18 
250 DRAWTO 13,5 
260 COLOR © 

270 PLOT 193,18 
280 DRAWTO 19,20 
230 PLOT 20,18 
300 DRAWTD 20,20 
310 COLOR 2 

320 PLOT 18,8 
330 DRAWTO 16,8 
340 DRAWTO 16,15 
350 DRAWTO 3,15 
360 DRAWTO 23,8 
370 DRAWTO 21,8 
380 COLOR 1 

390 PLOT 19, 11 
400 PLOT 20, 11 


183 


410 PLOT 19,17 
420 PLOT 20,12 

500 REM DAS SPIEL BEGINNT 

510 X=0:Y=0 

520 COLOR 1:PLOT X, Y:M=0:N=0 
530 S=STICK (0) 

540 COLOR O:PLOT X,Y 

550 IF S=15 THEN 520 

560 IF S=7 THEN X=X+1:M=-1 
570 IF X)33 THEN X=0 

580 IF S=11 THEN X=X-1:M=+1 
590 IF X(0 THEN X=393 

600 IF S=13 THEN Y=Y+l!N=-1 
610 IF Y)23 THEN Y=Ü 

620 IF S=14 THEN Y=Y-i1:N=+1 
630 IF Y(O THEN Y=23 

640 LOCATE X,Y,F 

650 IF F=0 THEN 520 

660 IF F=1 THEN 700 

670 IF F=2 THEN X=X+M: Y=Y+N:GOTO 520 
&B0 FOR W=0 TO A00:NEXT W 

630 GOTO 520 

700 GRAFHICS 18 

710 POSITION 5,4 

720 ? #6: "GESCHAFFT!" 

730 IF PEEK (53279)=6 THEN 100 
740 GOTO 750 


100: Grafik 3 ohne Textfenster. 


105 bis 250: ziehen einen drei Grafikpunkte breiten quadra- 
tischen Burggraben und 


260 bis 300: löschen einen Teil davon als Übergang. 
310 bis 370: zeichnen die Burgmauer in Gelb. 


380 bis 420: Jetzt fehlt nur noch der orangene Schatz im 
Zentrum des Burghofes. 


Für eine solche PLOT-Arbeit ist es unerläßlich, eine Skizze 
anzufertigen. Am einfachsten ist, Sie kopieren sich das 
Bildschirmraster von Seite 44 (für die GR.3-Auflösung oder 
von Seite 78 für die feineren Betriebsarten). So können Sie 
die gesuchten Spalten- und Zeilenwerte direkt ablesen. Sie 
ersparen sich damit viel Ärger, denn ob alle Daten stimmen, 
sehen Sie ja erst, wenn das Bild aufgebaut wird, und das 
bedeutet u.U., das Programm wieder und wieder zu starten, 
um immer neue Korrekturen an den Grafikdaten vorzunehmen. 
Bei längeren Programmen ist es auf jeden Fall ratsam, die 
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Richtigkeit der Daten blockweise durch einen Probelauf des 
Programms zu überprüfen. Bei diesem Programm hieße das, 
nach Zeile 420 eine Zeile 425 GOTO 425 einzugeben, damit 
das Bild nicht vom Programmende gelöscht wird. 


500: Nachdem das Spielfeld gezeichnet ist kommt der Held 
ins Spiel, der in die Burg eindringen und den sagenhaften 
Schatz retten soll (ob er will oder nicht). 


510: setzt X und Y auf 0, die fürderhin die Position des 
Grafikpunktes (Spieler) angeben werden. Wie wir gleich in 


520: sehen werden. Denn in Farbe 1 (Orange) wird hier ein 
Grafikpunkt in X,Y gePLOTtet. Ferner werden die Variablen 
M und N auf O gesetzt, die sich bald noch als ausgesprochen 
nützlich erweisen sollen. 


530: fragt Stock(0) ab und verfrachtet seinen Wert in S. 


540: Hier wird doch unser Spieler in der Hintergrundfarbe 
ausgerechnet an der Stelle gePLOTtet, wo er eben noch in 
seiner goldenen Rüstung stand. Das macht ihn ganz schön 
nervös, und er beginnt zu flackern, denn 


550: WENN S=15 (in Ruhe) DANN nach 520, wo der Grafikpunkt 
erneut gezeichnet wird. An der alten Stelle, denn die X- und 
Y-Werte haben sich inzwischen ja nicht verändert. 


Wenn Sie das Flackern des Spielers stört, dann werden Sie 
später noch andere Möglichkeiten kennenlernen, die ver- 
hindern, daß der Spieler einen Rattenschwanz von Grafik- 
punkten hinter sich herzieht, wenn er loszieht. Dies ist die 
unkomplizierteste Methode: Bevor die Position des Spielers 
verändert wird, löscht ihn Farbe 0 aus, nach der Verände- 
rung wird er neu gePLOTtet. 


560: Jetzt geht wieder die Abfragerei des Stöckchens los. 
Das ist Ihnen ja inzwischen bestens geläufig. (?) Aber was 
ist das: M=-1! In dieser Variablen wird die alte Position 
des Spielers für alle Fälle aufbewahrt. Man kann ja nie 
wissen. Hat X einen Schritt +1 gemacht, notiert M einen 
Schritt -1. 


570: Wenn der Spieler am rechten Rand des Grafikfensters 
weiter nach rechts gesteuert wird (X größer 39) dann kommt 
er links (X gleich 0) wieder ins Bild. 


580 und 590: Die Bewegung nach links ist entsprechend ge- 
staltet. 


600: Bei der Bewegung. nach unten bewahrt N die alte Position. 


610 bis 630: entsprechen der Regelung für X sinngemäß. 
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640: bevor der Spieler die neue Position bePLOTten darf, 
wird nun erst einmal vorgetastet. LOCATE sieht sich an, 
welch' Farbe Kind das Feld ist, auf das es den Spieler 
drängt. In der Variablen F wird der COLOR-Wert der Posi- 
tion X,Y notiert. 


650: WENN F gleich OD ist, DANN ist alles in Ordnung. Das 
neue Feld ist Hintergrund, darf also betreten werden. Ab 
gehts nach 520, wo der Schritt vollzogen wird. 


660: WENN F gleich 1 ist, DANN hat der Spieler den Orange- 
Schatz gefunden. Das Spiel ist vorbei. Ab nach 700 dem 
Ende entgegen. 


670: WENN F gleich 2 ist, versucht der Spieler gerade, mit 
dem Kopf durch die Burgmauer zu rennen. Das können wir 
nicht zulassen. Zum Glück haben wir in M und N die alte 
Position des Spielers aufgeschrieben. Wir versetzen die 
Koordinaten wieder in den alten Stand (X=X+M und Y=Y+N) 
und führen nach 520 zurück, wo der Spieler auf X,Y ge- 
PLOTtet wird und das ist genau die Stelle, von der aus er 
die Burgmauer angerannt hat. 


680: Wenn alle vorherigen Bedingungen nicht zutrafen, dann 
kann F nur noch den Wert 3 haben. Es gibt keine andere 
Möglichkeit. Deshalb brauchen wir das nicht extra abzu- 
fragen, sondern können gleich loslegen, wenn das Programm 
überhaupt bis in diese Zeile vorgedrungen ist. Wenn F gleich 
3 ist, dann steht der Spieler bis zum Hals im Burggraben. 
Da kann er natürlich nicht so flink rumflitzen wie auf dem 
trockenen Land. Also programmieren wir eine Warteschleife, 
indem wir den Rechner mal eben bis 400 zählen lassen und 
dann erst nach 520 zurückspringen. Da dort die vom Spieler 
verlassene Position in der Hintergrundfarbe gePLOTtet wird, 
schlägt das Durchwaten eine Gasse in die Fluten des Burg- 
grabens. Wenn Ihnen das biblisch vorkommt, dann sollten 
Sie sofort in die Tasten greifen und entsprechende Umpro- 
grammierungen einleiten. 


700: Läutet das Ende ein. Grafik 2 ohne Textfenster wird 
angeknipst und in 
710: an die POSITION 5,4 


720: ge?et (und zwar per Adresse Grafikfenster!), daß es 
vollbracht ist. 


730: fragt die Adresse ab, die sich mit den Funktionstasten 
verbunden fühlt. Steht dort zufällig eine 6, dann ist gerade 
die START-Taste gedrückt und dann gehts nach 100 auf ein 
Neues. Ist START nicht gedrückt, dann wird in Zeile 
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740: nach 730 zurückgesprungen. In diesem Kreislauf bleibt 
das Programm hängen, bis sich irgendwann jemand erbarmt 
und die START-Taste doch drückt oder den Computer aus- 
schaltet. 


Wenn die Spielfelder unseres Programms der Einteilung des 
Grafikfensters entsprechen und alle spielwichtigen Sachver- 
halte durch wechselnde Farben dargestellt werden können, 
dann kann sich die Spielfigur mit dem LOCATE-Befehl auf 
sehr unkomplizierte Weise wie mit einem Blindenstöckchen 
durch das Spielfeld tasten. 


Es mag aber geschehen, daß diese schlichten Möglichkeiten 
unseren hochtrabenden Spielideen nicht genügen. Unsichtbare 
Fallgruben z.B. sind auf diese Weise nicht programmierbar. 
Ich möchte Ihnen deshalb noch die doppelt indizierte Vari- 
able als Schiedsrichter vorstellen. Diese Variable, nennen 
wir sie einmal F(X,Y) bekommt ein Fach für jedes Spielfeld. 
Über die Bildschirmposition 9,12 wacht die Variable F(9,12) 
usw. Mit der Positon des Spielers (X,Y) haben wir auch 
immer die entsprechende Variable (F(X,Y)) zur Hand. 


Im folgenden Spiel finden Sie sich als rotes Quadrat am 
linken Bildschirmrand wieder. Ihre Aufgabe: Verlassen Sie 
das Grafikfenster auf der rechten Seite! Zwischen Ihnen und 
dem Ziel liegt nur schwarze Finsternis. Wenn Sie kühn vor- 
anstürmen, ecken Sie bald an. Das Hindernis ergraut, und 
Sie müssen wohl (oder übel) Ihren Weg. ändern. Weil Sie 
Ihren Weg als Blutspur hinter sich herziehen, blinkt der 
Spieler wieder einmal, damit er sich im Meer seiner Spuren 
nicht verliert: 


10 DIM F(539,2D 

20 GRAPHICS 18 

30 POSITION 6,4 

40 7? #6% "VORSPANN" 

50 FOR A=0 TO 393 

60 FOR E=0 TO 23 

70 H=0 

80 IF RND(0))0.69 THEN H=3 
90 F(A,B)=H 

100 NEXT B 

110 NEXT A 

200 GRAFHICS 19:FOKE 710, 2:FPÜOKE 708, 50 
210 X=0:Y=1i 

220 M=0:N=0 

230 COLOR 1:FLOT X,Y 

40 COLOR ÖSPLOT X,Y 

>50 COLOR 1:FL0OT X,Y 
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260 K=STICK (OÖ) 

270 IF K=7 THEN X=X+1l:!m=-1 
280 IF X)59 THEN 400 

290 IF K=11 THEN X=X-1:M=1 
500 IF X<0O THEN X=0:M=0 

510 IF K=135 THEN Y=Y+l:ıNn=-1 
20 IF Y)Z25 THEN Y=23:N=0 

550 IF K=14 THEN Y=Y-1:N=1 
Sao IF Y<(O THEN Y=O:N=0 

350 IF F(X,Y)=0 THEN GOTO 220 
360 COLOR 3:PLOT X,Y 

370 X=X+M:Y=\Y+N 

580 GOTO Z20 

400 FOR Y=0 TO 25 

4iD FOR X=0 TO 39 

420 IF F(X,Y)=3 THEN COLOR 3:PLOT X,Y 
430 NEXT X 

4uD NEXT Y 

450 FOR F=0 TO 5SO0:NEXT F 

460 GRAFHICS 35:FOKE 710, Z3FOKE 708, 50 
470 POKE 752,1:POKE 82,0 

480 ? "GESCHAFFT! — "“ 

490 GOTO 480 


10: DIMensioniert für jede Bildschirmposition eine Variable. 
20: GRAPHICS 18 ein. 


30 und 40: bringen einen Vorspann auf die Mattscheibe, 
denn das Einlesen von 960 Variablenwerten fordert schon 
etwas Geduld. In diesem Vorspann könnten Erläuterungen zu 
dem Spiel abgegeben werden. Während der Benutzer den Text 
studiert, läuft das Programm unbemerkt weiter. 


50 und 60: setzen die Schleifenzähler für zwei verschachtelte 
FOR-NEXT-Schleifen, die das Einlesen der Werte in die 
doppelt indizierte Variable F besorgen. 


70: H soll O0 sein. Aber wenn in 


80: der Zufall es so will, dann wird H auf 3 gesetzt. Rein 
statistisch bleibt H in 69% aller (Zu-) Fälle gleich 0 und in 
den restlichen 31% wird sie 3. 


90: Der doppelt indizierten Variablen wird der Wert H zuge- 
wiesen. 


100 und 110: beenden diesen Programmblock. Per Zufall ist 
in der Variablen F(n,n) ein Spielfeld geschaffen, es hat 
also bei jedem neuen Spiel eine andere Form. Etwa ein Drit- 
tel aller Werte ist 3 und wird als Hindernis behandelt. 
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200: Das Spiel beginnt. Grafik und Farbe werden bestimmt. 
210: Die Anfangswerte X und Y für den Spieler. 
220: M und N, zwei alte Bekannte, werden auf 0 gesetzt. 


230 bis 250: lassen die aktuelle Position des Spielers flackern, 
damit er sich nicht in seiner eigenen Spur verirrt. Wenn Sie 
diese beiden Zeilen löschen und spielen, werden Sie merken, 
was ich damit meine. 


280 bis 340: fragen in gewohnter Weise STICK(0) ab. In 


280: wird nach 400 gesprungen, wenn X größer 39 ist, denn 
damit ist der rechte Rand erreicht, das Spiel beendet. 


350: Wenn die Schiedsrichter-Variable 0 enthält, dann darf 
der Spieler das angestrebte Feld betreten. Das Programm 
wird nach 220 zurückgeführt und der Schritt vollzogen. Sonst 


360: bleibt nur die Möglichkeit, daß F(X,Y) den Wert 3 ent- 
hält, also ein Hindernis darstellt. Mit COLOR 3 wird die 
Barriere sichtbar gemacht und in 


370: werden die alten Werte von X und Y durch M und N 
wieder hergestellt. Wenn dann in 


380: nach 220 zurückgesprungen wird, dann befindet sich 
der Spieler noch an der alten Stelle, nämlich vor der jetzt 
sichtbaren Wand. 


400: wird nur erreicht, wenn die Siegbedingung (X größer 
39) erfüllt ist. 


4IO bis 440: mit einer verschachtelten FOR-NEXT-Schleife wird 
das in F(X,Y) gespeicherte Spielfeld sichtbar gemacht. 


450 bis 490: blenden nach einem Päuschen das Textfenster 
ein und drucken endlos, daß es geschafft sei. 


Ein abschließendes Wort noch zum Spielfeld. Die Hindernisse 
werden von RND bestimmt. Und wenn es der Zufall will, mag 
es passieren, daß kein Weg zum Ziel frei bleibt. Die Wahr- 
scheinlichkeit dafür ist allerdings gering. Experimentieren 
Sie ein wenig mit dem Wert in Zeile 80. Wenn Sie ihn ver- 
ringern, ist bei 0,6 fast schon kein Durchkommen mehr. Bei 
einem größeren Wert (0,8) wird die Aufgabe so leicht, daß 
es keinen Spaß mehr macht. Erfahrungswerte. 


189 


4.3 Die Feinde 


Der Computer kann einen menschlichen Gegenspieler nicht 
ersetzen, denn er kann nicht wirklich Entscheidungen tref- 
fen. Der Rechner kann nur in mechanischer Weise auf vorab 
definierte Situationen in vorbestimmter Weise reagieren. Er 
bringt keine Gefühle ins Spiel, kann also kein Risiko ein- 
gehen, bluffen, sich irren, schlecht spielen oder gut in 
Form sein. Er ist immer gleich und das wird schnell lang- 
weilig. 

Wie können wir diesem Dummkopf Züge einbläuen, die 
wenigstens eine bescheidene Illusion von Intelligenz ver- 
mitteln? Wir müssen für die Züge des Elektronengehirns eine 
Strategie programmieren. Aber selbst für ganz einfache Auf- 
gaben entsteht dabei schnell ein Wust von Programmzeilen. 
Die Überlegenheit der Maschine ergibt sich nur aus der 
unfehlbaren Präzision und der mit menschlichem Maßstab 
gemessen beliebig steigerbaren Geschwindigkeit. 


In den folgenden Abschnitten werden drei Prinzipien der 
Steuerung vorgestellt. In der einfachsten Version laufen die 
(Computer-) Feinde in festen Bahnen. Viele bekannte Compu- 
terspiele (Space Invaders, Centipede) basieren auf dieser 
schlichten Methode. 


Differenzierter wird das "Verhalten' der Gegner, wenn durch 
zufällige Elemente der Anschein von Spielentscheidungen 
erweckt wird. So können die Feinde z.B. zufällig ihre 
Richtung oder Geschwindigkeit wechseln. 


Bei der feinsten Methode (angewendet z.B. bei Pac Man) 
werden die Bewegungen der Gegenspieler errechnet. Mit einer 
Suchroutine hält der Computer Ausschau nach dem Spieler 
und wenn er ihn entdeckt hat, lenkt er seine Schritte in 
die entsprechende Richtung. 
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4.3.1 Auf ausgetretenen 
Pfaden 


Der Spieler steht mit dem Rücken zur Wand. Er kann nur 
nach rechts oder links laufen. Der Feind kommt in Wellen 
auf ihn zu, von oben. Jeder hat seine feste Bahn, also die 
X-Position bleibt immer gleich, der Y-Wert nimmt stetig zu. 
Der Spieler wird mit dem Joystick bewegt. Und schließlich 
müssen noch die Punkte gezählt werden. 


100 GRAFHICS 193 

110 H=19 

120 DIM X(59),Y1(59) 

150 FOR I=0 TO 39 

140 XD =O:YtTV)=0 

150 NEXT I 

200 IF RND(O0))0.35 THEN 230 

=10 I=INTCRND (0) #40) 

z=20 IF Y(ID)=0 THEN Y{D=1:X(D=l 
250 FOR I=0 TO 39 

240 COLOR 1:FLOT X(I),Y(D 

=50 NEXT |] 

3500 REM DER SFIELER 

310 COLOR O:FLOT H,25 

3520 Q=STICK (0) 

3550 R=5TRIG1t0) 

34D H=EHrCCH(3I) AND (G=7))#CR+rl) 
360 H=EH-(tH)O) AND (Q=ll))#CR+1) 
580 COLOR 35:PLOT H,23 

400 REM DIE FEINDE 

410 FOR I=0 TO 39 

420 IF YD)O THEN Y{I)=Y(D +i 
450 IF Y(D=25 THEN IF XL) OH THEN GOSUB BOO 
4a IF Y{DD=25 THEN IF XCI)=H THEN GOSUB 700 
450 NEXT I 

480 IF FEEK (55279)=5 THEN 500 
4309 GOTO 200 

S00 GRAPHICS S5:POKE 752,1 


sio 2" Sie haben ":U:" Feinde gefangen" 
sad 7 a7" Aber "Vs" sind Ihnen entwischt" 
3,0 GOTO 550 

O0 V=U+i 
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710 GOSUR 900 

720 RETURN 

BIO Vev+i 

81u GOSUB 3900 

820 RETURN 

3900 COLOR O 

310 FLOT X(D,O 
329 DRAWTO XCD,33 
3350 XD) =O:Y(T)=0O 
340 RETURN 


110: die vertikale Anfangsposition des Spielers 
120: X und Y werden DIMensioniert und 
130 bis 150: auf O0 gesetzt. 


200: Jetzt gehts los. Wenn der Zufall es will, wird nach 230 
gesprungen. Sonst gelangt das Programm nach 


210: wo | einen Zufallswert zwischen O0 und 39 erhält. 


220: Wenn auf der Bahn X(Il) noch kein Feind unterwegs 
ist, dann ist der Wert Y(l) noch O0 und wenn das so ist, 
dann wird jetzt ein Angreifer losgeschickt. X(I), die Spalte, 
bekommt den Wert I und Y(I), die Zeile, den Wert 1. 


230 bis 250: PLOTten alle Angreifer auf allen Bahnen. Weil 
hier ohne Rücksicht auf Verluste alle X(1),Y(Il) gePLOTtet 
werden, aber immer einige den Wert 0,0 haben, erscheint in 
der Ecke oben links ein Grafikpunkt, der da nichts zu 
suchen hat. Nur um diesen Störenfried wegzubekommen, müßte 
das Programm einige Zeilen länger sein. Wenn Sie das der 
Mühe wert finden, bitteschön! 


300: Jetzt kommt der Spieler zum Zuge. 
310: Zuerst wird er weggePLOTtet. 


320 bis 360: Jostick und Feuerknopf bewegen ihn ein oder 
zwei Positionen nach rechts oder links. 


380: Dann wird er wieder hingePLOTtet. 
400: Die Feinde stürmen los. 


420: Ist ein Angreifer auf der Bahn, dann ist sein Y-Wert 
größer 0 und dann wird dieser Y-Wert jetzt um 1 vergrößert, 
d.h. er macht einen Schritt nach unten. 


430: Und nun müssen wir natürlich aufpassen, ob er schon 
unten angekommen ist (Y(1)=23). WENN er unten angekommen 
ist DANN - WENN der Spieler nicht in der Bahn steht, DANN 
geht es ins Unterprogramm nach Zeile 800, 
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440: Aber WENN der Spieler zur Stelle ist, dann gehts im 
Unterprogramm von Zeile 700 weiter. 


480: fragt die SELECT-Taste (PEEK(53279)=5) ab. Ist sie ge- 
drückt, wird das Spiel abgebrochen und das Ergebnis 
ausgegeben. Ist sie nicht gedrückt, dann geht es in Zeile 


490: zurück zum nächsten Durchlauf. 


500 bis 530: zelebrieren das Ende des Spiels und verkünden 
das Ergebnis. 


700: War der Spieler zur Stelle, wenn der Feind unten an- 
kam, bekommt er mit U=U+l einen Punkt. 


710: Dann gehts ins Unter-Unterprogramm. 


800: War der Spieler nicht zur Stelle, bekommt der Computer 
mit V=V+1l einen Punkt. 


810: Dann gehts ebenfalls ins Unter-Unterprogramm. 


900 bis 940: In diesem Unter-Unterprogramm wird mit der 
Farbe des Hintergrundes die gesamte Bahn des erledigten 
Feindes gelöscht. Danach springt das Unter-Unterprogramm 
in das Unterprogramm zurück und das Unterprogramm springt 
ins Hauptprogramm zurück. 
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4.3.2 Schicksalsschläge 


Feinde, die in festgefahrenen Bahnen daherkommen, sind 
nicht besonders gefährlich, obwohl sich auch aus dieser 
simplen Programmstruktur viel herausholen läßt (wenn Sie 
nur wollen). 


Jetzt aber führt der Computer den Zufall ins Feld. Die Wege 
der Feinde werden dadurch unergründlich. Das ist besonders 
herausfordernd, wenn man ihn einfangen soll. Da das Pro- 
gramm sehr kurz ist, flattert der Feind wie eine Motte hin 
und her. Der Spieler zieht als rotes Quadrat los und kann 
graue Netze hinter sich lassen, in denen sich der Falter 
fängt. Auch diese Programmstruktur ist ausbaufähig: 


100 GRAFHICS 19 
110 POKE 708, 5S0:POKE 709, 2:FOKE 710,20 

120 XC=1:YC=1i 

130 XU=39:YU=11 

140 COLOR 1:PLOT Xu, Yu 

200 COLOR O:PLOT XC,YC 

210 IF RND(O) (0.66 THEN #30 

220 M=0:N=04C=INT(RND (0) *4) 

230 IF C=0 THEN IF XC<38 THEN XC=XC+LiM=-1 
240 IF C=1 THEN IF XC)1 THEN XC=XC-1:M=i 
250 IF C=2 THEN IF YC)L THEN Yl=YC-iıN=i 
260 IF C=3 THEN IF YC(22 THEN Yl=YC+HliN=-i 
270 LOCATE XC,YC,H 

280 IF H()O THEN XC=XC+M:YC=YC+N:GOTO 220 
230 COLOR 3:FLOT XC,YC 

300 COLOR O:PLOT XU, Yu 

310 S=STICK (0) 

320 T=STRIG (0) 

330 IF T=0 THEN COLOR Z:PLOT XU, Yu 

340 IF $S=15 THEN GOTO 200 

350 XU=XU+tl(S=7) AND (XU (39) ) 

360 XU=XU-((S=11) AND (XWO)) 

370 YU=YU+((5=15) AND (YU(23)) 

380 YU=YU-t((8=14) AND (YU)0O)) 

390 COLOR 1:PLOT XU, Yu 

400 GOTD 200 
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100 und 110: Grafik und Farbwerte. 

120: Die Ausgangswerte für den Computer-Feind 
130: Die Ausgangswerte für den User-Spieler. 
140: PLOTtet den Spieler in Farbe 1. 


200: Hier beginnt der Computer, seines Weges zu ziehen. Da 
wird er erst einmal weggePLOTtet. Dann wird eine neue 
Position für ihn errechnet. Das geschieht in 


210: Damit der dumme Rechner nicht immer nur im Kreise 
läuft, wird seine Marschrichtung nur etwa jedes dritte Mal 
geändert. Experimentieren Sie mit anderen Werten. 


220: Wenn es der Zufall so will, dann wird hier auch per 
Zufall eine neue Richtung erkoren. M und N stehen wieder 
zur Stelle. 


230 bis 260: ändern die Koordinatenwerte je nach gefundenem 
Richtungsumschwung. Beim ersten Durchlauf ist der Wert von 
C mit größerer Wahrscheinlichkeit 0. C=-0 führt den Feind 
nach rechts. Das erscheint sinnvoll, weil er am linken Rand 
das Spiel beginnt. 


270: Doch bevor dem Elektronengehirn ein Schritt erlaubt 
wird, muß er mit der LOCATE-Brille nachsehen, ob das Feld, 
auf das es ihn zieht, den Farbwert 0 (Hintergrund) hat. 


280: Findet er einen Wert ungleich 0, dann hat der Spieler 
hier bereits seine Netze ausgeworfen und der Weg ist ver- 
sperrt. Die Koordinaten des Feindes werden mit M und N auf 
den alten Wert zurückgesetzt. Und nun muß sich der Rechner 
für einen anderen Weg "entscheiden". Damit dieser "Ent- 


scheidungsprozeß" keinen Tempoverlust für den dummen 
Computer bedeutet, erlauben wir ihm solange einen Versuch, 
bis er endlich einen Schritt machen konnte. (Man will ja 


nicht so sein.) Also ab nach 220. 
290: Hat er nun endlich einen Weg gefunden, wird gePLOTtet. 


300: Jetzt ist der Spieler am Zug. Auch er wird erst einmal 
weggePLOTtet. 


310 und 320: fragen Stöckchen und Knöpfchen ab. 


330: Ist der Trigger gepreßt, wird mit Farbe 2 ein Hinder- 
nis an der aktuellen Stelle des Spielers hinterlegt. 


340: Wenn der Knüppel in Ruhe steht, kommt’ sofort der Com- 
puter wieder zum Zug. 


350 bis 380: fragen die verschiedenen Stellungen des Joy- 
sticks ab und verändern die Koordinatenwerte. 
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390: druckt den Spieler in seiner Farbe auf den Bildschirm 
400: und dann gehts in die nächste Runde. 


Natürlich hat der User leichtes Spiel. Er braucht ja nur 
den feurigen Knopf gedrückt zu halten und immer engere 
Schlingen um den schlingernden Flatterfalter zu ziehen, bis 
der hilflos auf der Stelle zappelt. 


Falls Sie es aber auf den vergangenen 195 Seiten noch nicht 
gemerkt haben sollten, dieses Buch liefert Ihnen (fast) 
keine Fix-und-Fertig-Aptipp-Stumpfsinn-Programme. Ich möchte 
Sie mit verschiedenen Programmiertechniken und Spielprinzi- 
pien vertraut machen und entsprechende Programmstrukturen 
vorstellen. Ich hatte mir das dann so gedacht, daß Sie aus 
diesem Angebot komplexere Spiele in ansprechender Ausstat- 
tung mit Bedienungskomfort und allem Drum und Dran selbst 
machen können (wenn Sie wollen). 


Bei diesem Spiel wäre es denkbar, dem Spieler nur einen 
begrenzten Vorrat an Hindernissen mit auf den Weg zu 
geben oder das Setzen eines Hindernisses mit einem Zeitver- 
lust zu verbinden. Das Programm könnte auch einfach nur 
mitzählen, wie viele Hindernisse gebraucht wurden, um den 
Falter zu erhaschen oder die Zeit messen, die es gebraucht 
hat (s. Kapitel 4.4). Aber wie ich Sie inzwischen kenne, 
haben Sie selbst noch viel bessere Ideen, was man aus 
dieser Spielidee alles herausholen kann. Ich bin jedenfalls 
drauf gefaßt, daß Sie mein schönes Progrämmlein völlig 
umkrempeln. 
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4.3.3 Gnadenlose Präzision 


Bislang sind die Feinde blind in vorgezogenen Bahnen ge- 
laufen, haben wirr herumgetastet. Jetzt aber erhält der Feind 
ein unfehlbar wachsames Auge, und er wird mit der ihm 
eigenen Exaktheit und Unfehlbarkeit seinen Weg wählen. So 
wie der Spieler auch in jedem Moment seine Figur und die 
Figur des elektronischen Widersachers im Auge hat, so lassen 
wir nun auch den Computer mit seinem elektronischen Auge 
die Lage überblicken. 


In den Schaltkreisen der Maschine geistern die aktuellen 
Koordinaten des Spielers herum. Wir müssen ihr nur 
erlauben, diese Daten auszuwerten. Im folgenden Spiel be- 
kommt ATARI zwei Figuren und die Aufgabe, den Spieler 
damit zu fangen. Der Spieler läuft weg, so gut er kann. 
aber wohin er sich auch wenden mag, die Feinde sind ihm 
unbeirrbar auf den Fersen: 


100 GRAFHICS 5:POKE 752,1 

110 FOÖKE 708, 188:FCKE 7093, SO 

120 5X=19:5Y=93 

130 AX=0O:AY=O 

140 BX=59:BY=19 

=00 COLOR 1:FPLOT 5X, 5SY 

„10 COLOR Z>PLOT AX,RAY:FLOT BX,BY 
220 IF ABSCAX-SX) (RBSCAY-SY) THEN 250 
250 IF AX-5X (0 THEN F=1:607T0 270 
z40 IF AX-SX)0 THEN F=-1:650T0 270 
250 IF AY-S5Y<O THEN G=il 

260 IF AY-SY?O THEN Q=-i 

270 LOCATE AX+F,AY+Q,L 

280 IF L=1 THEN 500 

=90 COLOR O>ELOT AX,NAY 

3500 AX=AX+F:AY=AY+Ü:SF=ed:d)=0 

510 IF ABS(CEX-SX) (ABS (CBY-SY) THEN 340 
s20 IF BX-S5X.(0 THEN F=1:50T0 360 
5350 IF BX-SX)0 THEN P=-1:50T0 360 
San IF BY-SY<(O THEN G=l 

3sao IF BY-SY)Oo THEN O=s-1 

360 LOCATE BX+F, EVY+Q,L. 

570 IF L=1 THEN 500 
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580 COLOR O3ELOT BX,BY 

San BX=BX+F:BY=BY+U:P=o0:0=0 
400 M=STICK (0) 

40 IF M=15 THEN 200 

420 COLOR O:FLOT 5X, SY 

A3D S5X=5X+r(15X(59) AND (M=7)) 
aan 5X=5X-((5X0) AND (M=12)) 
450 SY=SY+((M=15) AND (5Y<«i9)) 
460 SY=SY-t(M=14) AND (SYO)) 
AD GOTO 200 

Ssa0 7:7" GEFANGEN 
sı10 GOTO 500 


100: Grafik einschalten, Cursor unterdrücken 
110: Farben definieren. 

120: Die Anfangsposition des Spielers und 
130 und 140: die der beiden Feinde. 

200: Den Spieler PLOTten und 

210: die Feinde auch. 


220: Jetzt wird der Weg für Feind A errechnet. Als erstes 
stellt das Programm fest, ob A vom Spieler in X- oder in Y- 
Richtung weiter entfernt ist. Dazu wird die Differenz (= Ent- 
fernung) der X-Koordinaten von Feind und Spieler und der 
Y-Koordinaten gegenübergestellt. Da diese Differenz positiv 
oder negativ sein kann, je nach Lage von Spieler und Feind, 
aber die Entfernung gesucht ist, interessiert das Vorzeichen 
ob negativ oder positiv nicht. Nur der ABSolute Betrag ist 
für uns von Interesse. Der Befehl ABS eleminiert das Signum 
(Vorzeichen), während der Befehl SGN nur das SiGNum findet. 


230: Wenn sich der Feind A links vom Spieler befindet (die 
X-Koordinate von A ist kleiner als die X-Koordinate des 
Spielers) dann wird in der Variablen P eine +1 notiert. 


240: Befindet sich A rechts vom Spieler, dann wird mit P=-1 
ein Schritt nach links vorbereitet. 


250: War die Y-Entfernung größer, dann wird hier auf die 
gleiche Art ein Schritt nach unten 


260: oder nach oben ermittelt. 


270: Jetzt lokalisiert der Rechner die anvisierte Stelle und 
‘wenn er dort den (COLOR-) Wert 1 entdeckt, 


280: dann hat er den Spieler entdeckt - ab nach 500. 
290: Jetzt wird Feind A weggePLOTtet, dann 
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300: werden seine Koordinaten um den errechneten Wert (P 
oder Q) verändert und die hilfreichen Variablen P und Q 
für den nächsten Einsatz wieder gelöscht. Neu gePLOTtet 
wird Feind A am Anfang des nächsten Programmdurchlaufs. 


310 bis 390: erledigen die exakt gleiche Arbeit für Feind B. 
400: Jetzt darf der Spieler mit dem Knüppel zuschlagen. 

410: Stock in Ruhe, schon ist der Rechner wieder am Ball. 
420: Der Spieler wird weggePLOTtet, 

430 bis 460: ermitteln seine neuen Koordinaten und 


490: führt zum nächsten Durchlauf zurück, wo Feinde und 
Spieler sogleich ins Bild gesetzt werden. 


500: War ein Sprung hierher möglich, dann ist das Spiel 
aus. 
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4.4 Zeichen der Zeit 


Wie das Leben selbst, so muß auch das Spiel ein Ende 
haben. Ein Spiel kann beendet werden, indem die Siegbe- 
dingung erfüllt wird oder eine vorab vereinbarte Zeit 
abgelaufen ist. Bei Computer-Spielen wird in Ermangelung 
eines menschlichen Gegners gern die verrinnende Zeit zum 
bösen Feind aufgebaut. In diesem Kapitel sollen Sie erfah- 
ren, wie die Spieldauer definiert und der Ablauf der Zeit 
dargestellt werden kann. 


Nur so zum Spaß eine Stoppuhr: 


100 GRAFHICS 193:DEG 

110 FOKE 708, ZIFOKE 709, 52 

120 FOR W=540 TO 210 STEP -30 

130 X=SIN (W) #7+139:Y=C0S (W) *7+11 

140 COLOR 1:PLOT 19, 11:DRAWTO X,Y 
200 FOR WW=540 TOD zZ10 STEF -15 

210 S=5+1:IF 5=24 THEN 5=0 

220 XX=5IN (WW) #11+139:YY=COS (WW) #11+11 
230 COLOR Z:FLOT 19, 11:DRAWTO XX,YY 
40 IF FEERK (53279)=5 THEN 500 

250 FOR F=0 TO 1358:NEXT F 

260 COLOR O:FLOT 19, 11°2DRAWTO XX, YY 
270 COLOR 1:FL0OT 19, 11:DRAWTO X, Y 
z80 NEXT WW 

300 COLOR O:PLOT 19, 11:DRAWTO X,Y 
510 Z=2+1 

320 NEXT W 

330 GOTO 120 

S00 GRAPHICS 35:FOKE 710,0:F0OKE 752,1 
510 FOKE 708, 50:FOKE 709,52 

520 ZEIT=Z#10+5/2.4 

a u USTZEL! 

S40 IF FEER (53279)=6 THEN 100 

550 GOTO 540 


Der große Zeiger macht einen Umlauf in 10 Sekunden. Jeder 
der 24 Takte zählt also 0,42 Sek. Geeicht wird er durch die 
Warteschleife in Zeile 250. Durch Druck auf die SELECT- 
Taste wird die Uhr angehalten und die Zeit ausgedruckt. 
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4.4.1 Zeitgerecht 


Die einfachste Methode der Zeiterfassung ist eine Variable, 
die bei jedem Programmdurchlauf fortgezählt wird (Z=Z+1). 
Nach einer vorprogrammierten Anzahl von Durchläufen (Z 
größer n), wird das Spiel unterbrochen. Dabei muß natürlich 
verhindert werden, daß der Spieler den Programmablauf 
durch INPUT o.ä. unterbrechen kann. Die Abarbeitungszeit 
des Programmes ist die Maßeinheit für die Spieldauer: 


100 REM ZFLUSZ.BIR 
110 GRAFHICS 3 

120 FOR F=0 TO 1000 

130 NEXT P 

140 Z=Z+1 

150 IF Z<36 THEN 110 
160 ? "ENDE": 

170 GDTO 170 


120 und 130: enthalten eine leere Schleife. An dieser Stelle 
steht das Spielprogramm. 


140: zählt die Durchläufe. 


150: Hier wird die Zeit-Variable abgefragt. Solange sie den 
Wert 36 noch nicht erreicht hat, wird mit dem Rücksprung 
nach 110 eine neue Runde eingeläutet. Sonst geht es in 


160: weiter bzw. zuende. 


Der ATARI verfügt aber auch über eine eingebaute. elektro- 
nische Uhr. Für diese Funktion sind die Register 18, 19 und 
20 vorgesehen. Beim Einschalten des Rechners oder nach 
einem Warmstart (RESET) beginnen alle drei Register mit 
dem Wert 0. Das Register 20 zählt von OD bis 255. Wenn es 
dann wieder auf O0 umspringt, wird ein Zählimpuls an das 
Register 19 abgegeben. So zählt 19 seinerseits von O bis 255, 
um beim Umschlagen einen Impuls an Register 18 zu senden. 
Den Zeitwert der internen Uhr erfahren wir also mit der 
Anfrage PEEK(18)*256*256 + PEEK(19)*256 + PEEK(20). Als 
höchster Wert kann mithin 16.777.215 dargestellt werden. 


Die Uhr tickt im 50-Hertz-Takt, also Register 20 zählt in 
einer einzigen kleinen Sekunde von O0 bis 49. Die interne 
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Uhr kann danach 335,544 Sekunden oder 5592 Minuten oder 
ca. 93,2 Stunden (knapp vier Tage) erfassen. Falls Sie bei 
einem Spiel die Zeit nehmen wollen, das länger läuft, müssen 
Sie entsprechende Programm-Vorkehrungen treffen. Allerdings 
wäre vorher zu überlegen, ob man dem Rechner eine solche 
Dauerbelastung zumuten sollte: 


100 REM INTUHR. BIR 

110 ? CHR$(1ES 

120 FOKE 18, 0:3POKE 19,0:POKE 20,0 
150 A=FEERK (20) 

140 B=FEERN (19 

150 C=FEER (18) 

i60 POKE 752,1 

170 TeA+rZ36tB+256 8276 %E 
180 IF T>3 THEN Fe 

190 IF 799 THEN P=2 
200 IF T)J999 THEN F=3 
210 IF 773393 THEN F=4 
220 IF TI999399 THEN F=5 
250 FOSITION Z0-F, ii 
240 ? T 

250 GOTO 150 


110: Bildschirm löschen. 


120: Bevor Sie das Programm eingetippt haben, ist die 
interne Uhr schon bei 5.000 und mehr, deshalb setzen wir 
sie erst einmal auf 0. Sie fängt dann sofort wieder an zu 
zählen. Sie werden also im Register 20 nie eine 1 finden. 
Bis sie dort nachgesehen haben, ist schon ein höherer Wert 
darin. Bei diesem Programm ist die Uhr sogar schon bei 8, 
bevor der erste Ausdruck erfolgt. 


130 bis 150: Die drei Register der internen Uhr werden ge- 
PEEKt. 


160: Der Cursor wird versteckt. 


170: errechnet den numerischen Wert aus den drei Registern 
und dann könnte er auf den Bildschirm gedruckt werden. 
Mit einem POS.-Befehl wird aber die Stelle auf der Matt- 
scheibe angesteuert, bei der der Ausdruck beginnt. Die 
auszugebende Zahl ist aber erst einstellig, später aber 
mehrstellig. Weil es schöner aussieht, wenn die letzte Stelle 
der gedruckten Zahl immer an der gleichen Bildschirmpositi- 
on steht, müssen wir feststellen, wie lang die aktuelle Zahl 
ist. Das geschieht in den Zeilen 


180 bis 220: in der Variablen P, die nur auf sechs Stellen 
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vorbereitet ist. Wenn Sie über eine Million zählen lassen 
wollen, müssen Sie entsprechend weitere Zeilen einfügen. 


280: Jetzt können wir die exakte POS. angeben, vor der 
beginnend gePRINTet werden soll. Der Wert von P ist um so 
höher, je mehr Stellen die zu druckende Zahl hat. Da wir 
diesen Wert bei der POS.itionierung abziehen, beginnt die 
Ausgabe einer längeren Zahl entsprechen weiter vorne in 
der Zeile. 


240: T wird gePRINTet. 


250: Dann eilen wir zurück, um zu sehen, was die Stunde 
nun geschlagen hat. 
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4.4.2 Zeitdruck 


Selbst ein schlichtes Computer-Spielchen macht Eindruck, 
wenn die verrinnende Zeit auf der Mattscheibe sichtbar 
wird. Nun wollen wir uns als Profi-Heim-Programmierer nicht 
damit abgeben, einfach die numerischen Wert aus der inter- 
nen Uhr oder unserer Zählvariablen (womöglich noch im 
Textfenster) auszugeben. Ein bißchen grafischer Hokus-Pokus 
sollte schon der Mühe wert sein: 


100 REM ZEITMESS.EIR 
110 GRAÄFHICS 2 

120 FOKE 710,0:FPOkKE 752,1 
150 FOR F=0 TO 100 
140 NEXT P 

150 Z=Z+1 

160 IF Z=10 THEN Z00 
170 GOTO 150 

=00 Z=0O 

210 M=M+1 

220 ? CHRS$S(18) > 

>50 IF M=36 THEN 500 
=40 GOTO 189 

300 FOSITION 8,5 

310 ? #6: "ENDE' 

320 GOTI 3320 


110: Grafik mit Textfenster. 


120: Das Textfenster bekommt die Farbe des Hintergrundes, 
weil das eleganter aussieht. Außerdem wird der Cursor weg- 
gePOKEt. 


130 und 140: Hier gehört das Spielprogramm hin, 
150: zählt die Durchläufe und 
160: veranlaßt bei jedem zehnten einen Abstecher nach 200. 


170: Ansonsten gehts wieder von vorne los. 


200: Wenn Z in 160 den Wert 10 hatte, dann wird sie hier 
als erstes auf OD gestutzt. 


210: Dann wird mitgezählt, wie oft sich das Programm in 
diese Gefilde verlaufen hat (M=M+1) und 
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220: das ATASCII-Zeichen 18 gePRINTet. Das ist ein waage- 
rechter Strich. Das ; kümmert sich darum, daß der (un- 
sichtbare) Cursor gleich hinter dem gePRINTeten Zeichen 
verharrt und bei nächsten Mal dort weiterdruckt, so daß 
nach und nach ein schöner, langsam wachsender Balken 
am unteren Bildschirmrand wächst. 


230: Wenn der Balken 36 Zeichen lang ist (rechts bleiben 
zwei Schreibpositionen frei und links auch) dann gehts nach 
Zeile 300 zum Abpfiff. 


240: Und sonst kommt der nächste Durchlauf dran. 

300: Das Spiel ist aus. In die schon eingeschaltete GR.2 
wird in Zeile 3 ab Spalte B 

310: über Datenkanal Nummer 6 das "ENDE!" verkündet. 

320: Das wars dann. 


Statt mit ATASCII-Zeichen läßt sich die Zeit natürlich auch 
mit Grafikpunkten darstellen. Vom Spielplatz muß dann ent- 
sprechend Raum abgeknappst werden. Ein schrumpfender 
Balken macht das Verrinnen der Zeit noch deutlicher: 


100 REM ZEITBALK.BIR 

110 GRAFHICS 19 

130 COLOR 1:FL0OT 39,0:DRAWTO 59,25 
40 FOR F=O TO 5300 

150 NEXT P 

160 Z=Z+1 

170 COLOR O:FLOT 59, 2-1 

180 IF Z=24 THEN Z00 

190 GOTO 140 

zZ00 GRAFHICS 35 

z10 FOKE 710,0:PORKE 752,1 

z20 7?" DAS WAR’SI!" 
250 GOTO 250 


130: Der Zeitbalken wird am rechten Rand des Grafikfensters 
gePLOTtet und dann 


170: nach den Angaben von Z Stück für Stück weggePLOTtet. 
180: Wenn der gesamte Balken verschwunden ist (Z=24), 


200 bis 230: wird das Ende angezeigt. 
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4.5 Wertsachen 


Wer von einem hirnlosen Rechner um die Genugtuung betrogen 
wird, ein menschliches Gegenüber in die Schranken gewiesen 
zu haben (wenn es auch nur ein Spiel war), der braucht 
einen anderen Maßstab, seinen Triumph auszukosten. Mit der 
Maschine wird zumeist um Punkte gespielt, wenn es auch 
verschiedene Regeln gibt, nach denen diese Punkte gesammelt 
werden, am Ende zählt, was man zusammenbekommen hat. 


Es kann geregelt werden, daß die Punkte im Verlauf des 
Spiels zu sammeln sind. Bei dem Programmbei-Spiel für 
Feinde in festen Bahnen wurde gezählt, wie viele Feinde 
gefangen wurden und wie viele durchkamen. Das Verhältnis 
aus beiden Zahlen war das Spielergebnis, das man auf die 
gleiche Weise grafisch darstellen könnte, wie es für die Zeit 
erklärt worden ist. 


Eine Variante wäre es, wenn der Spieler im Verlauf des 
Spiels bestimmte Punkte auf dem Spielfeld betreten müßte 
und dafür mit Punkten belohnt würde. Mit dem LOCATE-Befehl 
können wir kontrollieren, ob der entsprechende Punkt er- 
reicht wurde und in einer Wertungsvariablen würde der 
Spielstand mitgezählt. Das Prinzip besteht also darin, be- 
stimmte Situationen während des Spiels herbeizuführen 
(Feinde fangen, Spielfelder betreten, Schätze finden), was 
fortlaufend mitgezählt und am Ende als Ergebnis ausgeworfen 
wird. 


Beim folgenden Spiel sollen Sie mit Ihrem roten Spieler die 
blauen Grafikpunkte - und damit Punkte einsammeln. Es er- 
scheint immer nur ein blauer Punkt auf dem Spielfeld. Sie 
gleiten mit dem Joystick hin, heimsen den Punkt ein und 
schon erscheint irgendwo ein neuer Punkt. 


Dummerweise wächst das ganze Spielfeld mehr und mehr mit 
grauen Hindernissen zu. Und am unteren Rand des Grafik- 
fensters schwillt kontinuierlich ein Zeitbalken, während die 
im Textfenster angezeigten Punkte nur spärlich mehr werden. 


Sammeln Sie so viele Punkte wie möglich, bevor die Zeit 
abgelaufen ist: 
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100 GRAFHICS 3:FORKE 708, 52: POKE 709,144 
110 FOÜKE 710, 2:POKE 757,1 

115 X=19:Y=3:CODLOR 1:FPLOT X,Y 

120 COLOR 35:FLOT 0, 13:DRAWTO 59, 19 
130 U=INT(RND (0) #40) :V=INT (RND<CO) #19) 
140 COLOR Z:FLOT U,V 

150 IF RND(O) (0.85 THEN 1B0 

160 A=INT(CRND (0) #40) :B=INT CRND (0) #19) 
170 COLOR 3:FLOT A,R 

180 S=STICK (0) :M=0:N=O 

190 IF S=15 THEN 400 

200 IF S=7 THEN X=X+1l:M=-—1 

210 IF X>59 THEN X=59:M=0 

220 IF S=11 THEN X=X-1:M=l 

z=50 IF X(0 THEN X=0:M=0O 

240) IF S=13 THEN YeY+lııa-l 

zoo IF Y>18 THEN Yz=18:N=0 

z60 IF S=eld4 THEN Y=Y-1:!N=1l 

„70 IF Y<O THEN Y=O:N=O 

z=80 LOCATE X,Y,F 

„a0 IF Fe THEN GOSUE 600 

s00 IF F=5 THEN X=X+M:Y=Y+N:!M=OiN=O 
510 COLOR 1:FL0T X,Y 

520 COLOR O:FLOT X+M,Y+N 

400 Z=Z+1:1IF Z=30 THEN Z=e0:2Z=Z7Z+1 
410 COLOR Z:FL0T Z2,193 

420 7 „,„W3CHR$S (HB) 

aso IF ZZ=59 THEN ? Ws" ist Ihr Endergebnis"::60T0 500 
440 SOUND 0,0,0,0:1G0T0 150 

S00 GOTO 500 

EOO WeW+H1L:SDOUND 0,14, 14,8 

610 U=INTERND (0) #40) EV=INTCRND (0) *19) 
20 LOCATE U,V,H:IF HO0O THEN 610 
550 COLOR Z:PLOT U,V 

640 RETURN 


100 und 110: Grafik, Farben, Cursorunterdrückung. 


115: Die Startkoordinaten für den Spieler, der auch gleich 
gePLOTtet wird. 


120: Mit Farbe 3 wird direkt über dem Textfenster ein Bal- 
ken gezogen. Da das Textfenster die gleiche Farbe hat, 
bilden beide eine farbliche Einheit. 


130: Für den Sammelpunkt werden zufällige Koordinaten U 
und V bestimmt 


140: und in seiner blauen Farbe gleich ausgedruckt. 
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150: Wenn die hier zufällig generierte Zahl kleiner als 0,85 
ist, dann wird ein Sprung nach 180 angeordnet. Das ist in 
85% aller Fälle zu erwarten. 


160: Nur bei etwa jedem siebten Durchlauf gelangt das Pro- 
gramm deshalb hierher und erzeugt zufällige Koordinaten A 
und B, die 


170: in Farbe 3 als Hindernis gePLOTtet werden. 
180 bis 270: Die übliche Abfragerei des Steuerknüppels. 
280: LOCATE überwacht die Züge des Spielers. 


290: Wenn der Wert 2 gefunden wird (Sammelpunkt), dann 
wird in der Subroutine ab 600 eingesammelt. 


300: Wenn der Spieler ein Hindernis vor den Füßen hat, 
dann werden seine alten Koordinatenwerte wieder hergestellt. 


310: Sodann wird der Spieler auf seine neu berechnete Posi- 
tion gezeichnet 


320: und mit Hintergrundfarbe die alte Position weggetüncht. 
Bei dieser Vorgehensweise, erst die neue Position des 
Spielers zu drucken und dann die alte fortzunehmen, flimmert 
der Spieler nicht so nervös, verschwindet dafür aber für 
etwas länger, wenn er sich nicht bewegt. 


400: Hier wird die Zeit gezählt. Z zählt mit den Programm- 
durchläufen von 0 bis 30 und setzt jedesmal, wenn 30 
erreicht ist ZZ um 1 höher. 


410: Da sich der Variablenwert ZZ nur bei jedem 30sten 
Durchlauf ändert, bringt der PLOT mit Farbe 3 auch nur 
dann eine sichtliche Veränderung. Ein Grafikpunkt wird auf 
den Zeitbalken gePLOTtet. 


420: PRINTet den laufenden Punktestand in das Textfenster. 


430: Wenn der Zeitbalken den rechten Bildschirmrand erreicht 
hat (ZZ=39), wird das Endergebnis (W) ausgedruckt und das 
Programm in Zeile 500 aufgefangen. 


440: schaltet den Tongenerator 0 aus (im nächsten Kapitel 
erfahren Sie mehr darüber), der weiter unten im Programm 
erst eingeschaltet wird und springt nach 150 zurück. 


600: Das Unterprogramm,. Ein Punkt wurde eingesammelt. 
Hier wird er von der Variablen W gezählt und ein Ton wird 
angestimmt (der dann beim nächsten Durchlauf in Zeile 440 
wieder ausgeknipst wird. Durch diese Anordnung haben wir 
mehr Zeit, auch etwas davon zu hören.) 


208 


610: Koordinaten für einen neuen Sammelpunkt werden er- 
würfelt, dann 


620: wird überprüft, ob die Stelle auf dem Bildschirm frei 
ist und dann erst 


630: mit Farbe 2 gePLOTtet. 
640: RETURN nicht vergessen. 


Natürlich ist es möglich, daß ein Sammelpunkt im Verlauf 
des Spiels an eine Stelle gesetzt wird, die vom Spieler nicht 
mehr erreicht werden kann, obwohl noch Zeit übrig ist. 
Pech! 


Das Programm hat aber auch noch eine kleine Macke, die 
sich aber mit einer Zeile beheben läßt, und diese Arbeit 
habe ich für Sie aufgespart. So wie das Programm jetzt 
läuft, kann es nämlich passieren, wenn es der dumme Zufall 
so will, daß ein Hindernis genau auf den Sammelpunkt ge- 
PLOTtet wird. Dann hat der Spieler plötzlich nichts mehr zu 
gewinnen. Sie müssen also eine Zeile schreiben, die verhin- 
dert, daß ein Hindernis an die Stelle gedruckt wird, an der 
sich gerade der Sammelpunkt befindet. Diese Anweisung ge- 
hört in Zeile 165. 


Anregungen für die Erweiterung dieses Spiels: Lassen Sie 
den Sammelpunkt nach einer wohl dosierten Zeit den Ort 
wechseln oder setzen sie ihn (mit dem Zufallsmotor) in Be- 
wegung. Lassen Sie den Sammelpunkt von Zeit zu Zeit 
unsichtbar werden. Oder geben Sie zwei oder mehr Punkte 
auf einmal aus. 


Die laufende Wertung eines Spiels kann auch einfach darin 
bestehen, die Schritte zu zählen, die zur Lösung der Auf- 
gabe benötigt wurde. Bei Ratespielen bietet sich diese Wer- 
tung besonders an, da des Rätsels Lösung üblicherweise in 
möglichst wenigen Schritten gefunden werden soll. 


Es ist aber auch möglich, das Punkteergebnis erst am Ende 
des Spiels auszuzählen. Beim folgenden Programm huschen 
Spieler und Gegenspieler (für zwei Personen) über den Bild- 
schirm und färben ihn in ihrer jeweiligen Farbe ein. Natür- 
lich überpinselt der eine, was der andere gerade für sich 
beansprucht hat. Am Ende wird ausgezählt, wer die größere 
Fläche bekleckert hat. 


Weil ich sicher bin, daß Sie keine Schwierigkeiten haben 
werden, die Joystick-Abfrage für den zweiten Spieler in das 
folgende Programm einzufügen, liefere ich Ihnen die Version, 


in der Sie gegen den Rechner anmalen können: 
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100 GRAPHICS 19:POKE 708, SZ: POKE 709, 144 
110 FOKE 710, 4:F0OKE 752,1 

115 COLOR 3:PLOT 9, Z3:IDRAWTO 39,25 
120 X5=0:Y5=0:C0OLOR 1:FLGT X5,YS 

1309 XC=39:YC=-ZZ:COLOR 2:PLOT XC, YC 
140 IF RND(O) (0.8 THEN 160 

150 C=INT(RND(O) #4) 

180 XC=XC-((C=0) AND (XEO)) 

170 XC=XC+ttC=l) AND (XC(59)) 

180 YE=YC-((C=Z) AND (YO>O)) 

1909 YE=YCc+ttC=5) AND (YCE<ZII) 

z00 COLOR Z>FLOT XC,YC 

z=210 D=D+1:IF D<{z THEN 140 

PRO ==()) 

250 S=STICK (OÖ) 

zZun X5S=X5+((X5 (IN AND (5=7)) 

250 X5S=X5-((X5}0) AND (5=11)) 

260 YS=YS+(tYS(Z2I AND (S=15)) 

270 YS=YS-((YS>0O) AND (S5=14)) 

280 COLOR 1:FLOT XS,YS 

500 Z=Z+0.05 

310 COLOR O:FLOT 39-7,25 

52:0 IF Z=39 THEN 400 

550 GOTO 140 

400 GRAFHICS S5:FOKE 710,4:F0OKE 752,1 
405 FOKE 82, 0:FOKE 708, SZ: FORE 7093, 144 
4io 7? #9 Es folgt die Wertung" 
420 ? a2" Bitte haben Sie etwas Geduld"; 
as FÜR X=0 TO 59 

440 FOR Y=0 TO 22 

450 LOCATE X,Y,E 

460 IF E=1 THEN SE=SE+1 

47a IF E=sZ THEN CE=CE+1 


480 NEXT Y 
430 NEXT X 
300 ?7 37.397" Sie haben "SE," Felder erobert" 
wo 2? am" Der Computer hat ":CE:" Felder besetzt": 


520 GOTO 520 
115: In der untersten Zeile des Grafikfensters wird ein Bal- 
ken gePLOTtet, der künftig die Zeit darstellen wird. 


120: Der Spieler. 
130: Der Computer. 


140: Es folgt die "zufällige Steuerung" (ein merkwürdiges 
Wort, nicht wahr? Zufall oder Steuerung?) in 80% aller 
Durchläufe behält der Computer seine Bewegungsrichtung (C) 
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bei „ aber bei etwa jedem fünften Mal 
150: bestimmt er per RND eine neue Richtung. 


160 bis 190: besorgen die Veränderung der Koordinaten des 
Computers ja nach Richtung C. 


200: Dann wird der neue Punkt XC,YC in der Farbe des 
Computers (COLOR 2) gedruckt. Weil der Rechner auf diese 
Weise recht dumm über den Bildschirm stolpert und wir ihm 
keine weitere Strategie einprogrammieren wollen, nach der 
er möglichst viel Land gewönne, 


210: ersetzen wir Klasse durch Masse. Der Computer darf bei 
jedem Durchlauf zwei Felder weit ziehen. 


220: D wird für den nächsten Durchlauf auf O0 gesetzt. 


230: Jetzt ist der Spieler an der Reihe. Sein STICK(0) wird 
abgefragt. 


240 bis 270: verändern entsprechend die Koordinaten des 
Spielers und 


280: druckt ihn aus. 


300: Eine vereinfachte Form der Zeitnahme. Die Variable Z 
wird bei jedem Durchlauf nur um Dezimalteile erhöht. 


310: Da der PLOT-Befehl Deziamlstellen wegrundet, wird erst 
dann ein neuer Punkt im Zeitbalken sichtbar, wenn Z um 
eine ganze Stelle größer geworden ist. In diesem Programm 
braucht es dafür zwanzig Durchläufe. 


320: Wenn Z den Wert 39 erreicht hat (nach 800 Durchläufen) 
dann gehts nach 400. 


330: Nächster Durchlauf bitte. 

400: Das Textfenster wird eingeblendet. 

405: Nach einem GR.-Befehl müssen die POKEs erneuert werden. 
420: Die Wertung braucht wirklich etwas Geduld, denn 


430 bis 490: gehen mit einer verschachtelten Schleife jeden 
einzelnen Grafikpunkt durch und lesen seinen COLOR-Wert. 
Je nach Farbe wird dann für den Spieler (SE=SE+1) oder den 
Computer (CE=CE+1) ein Pünktchen notiert. 


500 und 510: Drucken das ermittelte Endergebnis ins Text- 
fenster. 


520: Schluß. 
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4.6 Der gute Ton 


Bei Science-Fiction-Filmen kracht und rumst es selbst im 
schalltoten Weltraum, denn die Kinomacher wissen, daß der 
richtige SOUND ein wichtiges Bestandteil der Illusion ist. 
Das gilt für Computer-Spiele nicht minder. 


Die Grafik, die uns der Hausfreund in BASIC zu bieten hat, 
ist zu grob, um naturalistische Visionen damit zu erzeugen 
oder zu schwerfällig, dabei auch in Schwung zu bleiben. 
Die Player-Missile-Grafik bietet in dieser Beziehung mehr, 
aber da verirren wir uns auch schon fast in den aufge- 
dampften Schaltkreisen des Chip. 


Ein paar gekonnte Töne machen jedoch aus jedem roten 
Rechteck einen schnittigen Rennwagen, die Berührung mit 
einem Hindernis knistert elektrisch und eingesammelte Punkte 
klingeln in der Kasse. 


ATARI ist stimmgewaltig. Mit vier getrennten Tongeneratoren 
bringt er den Lautsprecher des Monitors/Fernsehers in 
Stimmung. Mit nur einem BASIC-Wort können hunderte von 
Tönen und Geräuschen erzeugt und zu endlosen Klangbildern 
zusammenprogrammiert werden. 


Mit SOUND (Abkürzung SO.) werden die Generatoren und Töne 
definiert. Hinter SOUND folgen vier Kennzahlen, die durch 
Kommata getrennt werden. Der Befehl sieht so aus: 


SOUND (Generator), (Tonhöhe), (Verzerrung), (Lautstärke) 


Einmal angestimmt drönt ein Tongenerator so lange, bis der 
Strom abgeschaltet wird, der Befehl END erfolgt oder ein 
anderer Ton für den gleichen Generator bestimmt wird. Dabei 
kommt die Lautstärke 0 dem Ausschalten des Generators 
gleich, 


Es können also vier verschiedene Töne/Geräusche gleichzeitig 
erzeugt werden. Aber begnügen wir uns fürs erste mit einem. 
Die Generatoren werden durch die Kennzahlen O0 bis 3 ange- 
sprochen. Die Tonhöhe reicht von O0 (hoch) bis 255 (tief). 
Diese 256 Werte ergeben reine Töne, die allerdings der 
klassischen Tonleiter nur bei bestimmten Werten und nur 
näherungsweise entsprechen. Die Abbildung stellt eine Ver- 
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229 204 172 153 137 115 102 86 77 68 5 5l I RB 29 26 


ul 


242 216 193 182 162 145 191218 97 1 1256 EEE HK 2 I 27 2 





bindung zwischen der Tonleiter und diesen Tonwerten her. 


Der Verzerrungsgrad wird durch eine gerade Zahl von O bis 
14 bestimmt. 0 ergibt die übelste Verzerrung, 14 läßt den 
Ton rein erklingen (10 übrigens auch). Mit den Verzerrungen 
lassen sich viele interessante Spielgeräusche erzeugen. Sie 
dürfen sich übrigens nicht wundern, daß bestimmte Kombina- 
tionen von Tonwerten und Verzerrungsgraden gar keinen 
Laut von sich geben. Das liegt in der Natur der Verschiebe- 
register und sonstiger Delikatessen, die Teile des SOUND- 
Generators sind*. 


Die vierte Kennzahl für die Lautstärke kann Werte von O0 bis 
15 bekommen. O entspricht dem Ausschalten, 1 ist leise und 
15 laut. 


Jede der vier Kennzahlen kann durch Variablen oder zu 
berechnende Werte ersetzt werden. 


Jeder einzelne Ton besteht also aus drei Werten und bedarf 
außerdem einer Kennzahl für den Generator, dem er bestimmt 
ist. Die Länge der Töne wird dadurch bestimmt, wann sie 
wieder abgeschaltet werden. Der folgende Ton löscht den 
vorherigen. Zwischen beiden Tönen kann eine Warteschleife 
die Dauer des gerade eingeschalteten Tones bestimmen. Die 
Länge der Warteschleife wäre ein vierter Wert für den Ton. 
Ein ganzes Lied zu programmieren ist, ähnlich wie bei der 
Grafik, reine Fleißarbeit. Wer Programmieren will, muß 
zählen können wie ein Maikäfer. 


Rein rechnerisch können 256 (Töne) * 8 (Verzerrungsgrade) 


* 15 (Lautstärken) = 30.720 Töne, oder sagen wir besser 
Geräusche, erzeugt werden. Im Zusammenklang mehrerer Ton- 
generatoren und von FOR-NEXT-Schleifen moduliert, lassen 


sich damit unglaubliche Effekte erzielen. 


* Wie Sie Ihre StrATARIvadi millionenfach erklingen lassen, POKEt Ihnen Alfred 
sörgen: in einer "ATARI Sound- und Musik-Buch", das in der gleichen Reihe er- 
schienen ist. 
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Wenn Sie sich einen Ton anhören wollen, dann geben Sie ihn 
als Direkteingabe ein, also ohne Zeilennummer nur den 
Befehl SO. r,t,k,! und RETURN-Taste. Der Ton steht und 
ATARI grüßt mit READY. Jetzt können Sie mit dem Cursor 
zurückfahren und eine Kennzahl ändern. RETURN. Und schon 
hören sie den geänderten Ton. Natürlich können Sie auf 
diese Weise auch alle vier Generatoren gleichzeitig tönen 
lassen. 


Für Spiele bieten sich grundsätzlich zwei Anwendungsmög- 
lichkeiten an. Einmal können wir Erkennungs- oder Sieges- 
melodien erklingen lassen. Da der Computer dann aber den 
Musikblock des Programmes abarbeitet, kann solange nichts 
(oder nicht viel) anderes ablaufen. Bewegte Grafik und 
melodische Tonfolgen so kurz hintereinander laufen zu 
lassen, daß der Eindruck der Gleichzeitigkeit entsteht, ist 
ein mühsames Geschäft. 


Die zweite Anwendung liegt in kurzen Spielgeräuschen, die 
entweder so schnell abgearbeitet werden, daß das Programm 
davon scheinbar nicht unterbrochen wird, oder die nur aus 
einem Geräusch bestehen, das an einer Stelle des Programms 
in den Tongenerator gesetzt und in irgendeiner späteren 
Zeile wieder gelöscht wird. 
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4.6.1 Klang-Daten 


Jeder einzelne Ton wird durch vier Zahlenwerte definiert. Wir 
müssen den Generator (G) bestimmen, die Tonhöhe (T), den 
Verzerrungsgrad (R) und die Lautstärke (V). Natürlich 
können Sie beliebige Variablennamen dafür erfinden. 


Ein Ton braucht aber auch eine bestimmte Dauer, die er 
kingt. Den Generatoren können wir damit nicht kommen. Wir 
müssen also einen Weg finden, den gesetzten Ton nach einer 
bestimmbaren Zeit wieder abzuschalten. Bei einer Melodie 
kann das dadurch geschehen, daß der nächste Ton in den 
Generator gesetzt wird. Zwischen beiden Tönen muß dann 
nur eine Pause definierter Länge eingegeben werden. Die 
Länge der Pause ist ein fünfter Wert, der von uns program- 
miert werden muß. 


Das Programm, mit dem die Töne aufgerufen werden, ist 
ganz kurz. Der Aufwand steckt in den vielen, vielen 
Zahlenwerten, die gefunden, geprüft und eingegeben werden 
müssen: 


10 TRAF 70 

20 RERD G,T,R,V,L 

50 SOUND G,T,R,V 

4Oö FOR D=0 TO ASO/L:ENEXT D 
50 GOTO 10 

70 END 

100 DATA 0,129, 12, 2, 900 
110 DATA 1, 72,14,4,28 
120 DATA 1,81,14,5,8 
150 DATA 1,695, 14,5,2 
140 DATA 1,72,14,4,8 
150 DATA 0,137, 12,1,900 
160 DATA 1,77,14,4,2 
170 DATA 1,86,14,5,8 
185 DATA 1,68, 14,5,2 
190 DATA 1, 77,14,4,8 
00 DATA 0, 122, 12,5, 900 
210 DATA 1,108,14,9, 3 
z20 DATA 1,122, 14,4,8 
230 DATA 1,102, 14,6,3% 
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=40 DATA 1,108,14,5,4 
250 DATA 0,137, 12, 2,900 
260 DATA 1,115,14,3,2 
>70 DATA 1,129, 14,2,8 
280 DATA 1,102,14,4,2 
=90 DATA 1,115,14,5,1 


10: TRAP ist eine Falle, eine Falle für Fehler. Mit TRAP 
wird bestimmt, in welcher Zeile weitergearbeitet werden 
soll, wenn ein Fehler auftritt. Der Rechner bricht dann die 
Bearbeitung des Programmes nicht ab, sondern macht bei 
der hinter TRAP genannten Zeilennummer weiter. Wo im 
folgenden Programm ein Fehler zu erwarten ist, erzähle ich 
Ihnen später. 


20: Statt für jeden einzelnen Ton einen SOUND-Befehl zu 
schreiben, verstauen wir die entsprechenden Zahlenwerte in 
DATA- (Daten-) Zeilen und lesen (READ) sie hier in die 
Variablen ein. Der READ-Befehl bewirkt, daß für die hinter 
ihm stehenden Variablen eine nach der anderen aus den 
DATA-Zeilen Werte eingelesen werden. Mit READ können auch 
String-Variablen gefüllt werden, dann müssen in der DATA- 
Zeile Zeichenketten stehen. Wo die DATA-Zeilen im Programm 
stehen, ist ziemlich beliebig. Wenn der erste READ-Befehl 
ergeht, sucht sich der Rechner die DATA-Zeile mit der 
niederigsten Zeilennummer, liest die geforderte Menge Daten 
und merkt sich, an welcher Stelle er die DATA-Zeile ver- 
lassen hat. Wenn der nächste READ-Befehl ergeht, macht er 
dann genau an der Stelle weiter. 


30: Mit den in die Variablen G, T, R und V geREADeten 
DATA wird hier ein SOUND gesetzt. 


40: Die Variable L soll bestimmen, wie lange der Ton er- 
klingt. Eine Pause von O0 bis 450 entspricht ungefähr einer 
ganzen Note. Als Quotient kann L mit den Werten 1, 2, 4, 8 
usw. ganze, halbe, viertel, achtel usw. Noten bewirken. 


50: löst den nächsten Durchlauf aus. READ holt die folgen- 
den DATA, SOUND läßt sie erklingen und die FOR-NEXT- 
Schleife beschneidet die Tondauer. 


70: END sorgt dafür, daß am ENDe auch die Tongeneratoren 
ausgeknipst werden. 


100 bis 290: enthalten die Daten für zwanzig Töne. Nur der 
besseren Übersicht wegen stehen die Daten für einen Ton in 
einer DATA-Zeile. Dem READ-Befehl würde es nichts aus- 
machen, wenn so viele Daten hintereinander stünden, wie 
eine BASIC-Zeile verkraften kann. Die Daten dieses Pro- 
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gramms könnten also in zwei Zeilen untergebracht werden. 
Das ist schon deshalb sinnvoll, um die vielen DATA-Wörter 
einzusparen. 


Die hier bezifferte Melodie hat zwei Stimmen. Auf Generator 
0 laufen dunkle Töne. Damit sie zusammen mit den Tönen 
aus Generator I zu hören sind, wird die FOR-NEXT-Pause 
umgangen, indem für die Tonlänge ein Wert bestimmt wird, 
der kleiner als 1 ist. Die Dauer des Tones in Generator 0 
wird durch die Gesamtdauer der vier Töne in Generator 1 
mitbestimmt, denn erst wenn diese vier Töne abgespielt sind, 
bekommt Generator O0 neue DATAs. 


Wenn Sie gute Nerven haben, dann schreiben Sie in Zeile 
70 RESTORE :60T0 10 


Der Befehl RESTOR bewirkt, daß der Zeiger, der auf das als 
nächstes zu lesende DATA zeigt, zurückgesetzt wird. Das 
nächste READ findet dann den ersten Wert in der ersten 
DATA-Zeile. Auf diese Weise kann man Daten immer wieder 
abfragen. Unser kleines Programm wird druch RESTORE zum 
Laierkasten. 


Und nun bin ich Ihnen noch trap, trap TRAP schuldig. Durch 
den Rücksprung in 50 nach 10 läuft das kleine Tonprogramm 
an sich endlos. Nach dem zwanzigsten Durchlauf sind aber 
alle Daten gelesen. Wenn jetzt noch ein READ-Befehl ergeht, 
dann wehrt sich der Rechner mit der ERROR-Feige: ERROR- 6 
(zu wenige Daten). Mit der Fehlerfalle bauen wir dem vor- 
ausschauend vor und sagen, wenn ein Fehler auftritt, dann 
spring nach 70 und beENDe das Spiel. 


Natürlich kann der Rechner nicht wissen, welchen Fehler 
wir meinen. TRAP wirkt beim ersten Fehler, der auftritt. Wir 
müssen schon dafür sorgen, daß nur gewollte Fehler im 
Programm enthalten sind. 


Das kleine Programm hätte auch anders beendet werden 
können, z.B. mit Nullen als letzte DATAs und einer Abfrage, 
WENN (z.B.) G=0 DANN ENDE. 


217 


4.6.2 Klang-Bilder 


Was uns täglich in den Ohren dröhnt, hat selten viel mit 
Musik zu tun. Aber Geräusche sind auch nur Töne. Mit den 
Verzerrungsmöglichkeiten und ein paar pfiffigen Manipula- 
tionen lassen sich Klangbilder zaubern, von denen die 
Wiener Philharmoniker nur alpträumen können. Das können 
Sie nun ausprobieren! 


Ich programmiere mir zum Abschied ein Geräuschklavier. Das 
Keyboard des ATARI läßt rund 256 verschiedene Tasten 
(Kombinationen) zu. Ein paar, wie z.B. die BREAK-Taste, 
fallen aus. Trotzdem sind das mehr als genug, denn mit 
jedem Tastendruck könnte ein anderes Geräusch ausgelöst 


werden. Wie das funktionieren soll? So: 
10 DPEN #1,4,0, "KR." 

z=0 GET #1,T 

50 CLDSE #1 

ao IF (T(43) OR (TDISE)=1 THEN 10 
50 GOSUR Tx*100 

60 GOTO 10 

70 END 

4300 FOR T=355 TO O0 STEF —i 
4310 SOUND 0,T,8,15 

493920 FOR L=0 TO 1IS5:NEXT 1. 
4330 NEXT T 

4340 SOUND 0,0,0,0 

4350 RETURN 

S000 FOR L=6 TO 0 STERF -0.2 
5010 FOR V=i1 TO 15 

5020 SOUND 1,36, 14,V 

S0O50 NEXT V 

=040 FOR V=-2#L TO 1 STEF —-1 
S0S50 SOUND 1,40, 10,V 

3060 NEXT W 

5070 NEXT L 

5080 SDUND 1,0,0,0 

5090 RETURN 

5100 FOR M=i TO 4 

S110 FOR V=2 TO 5%M 

5120 SOUND 3,2%*M,4,V 
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5130 FOR F=0 TO V#M#35:NEXT FM 
9140 NEXT V 
S150 NEXT M 
5160 SOUND 5,0,0,0 
5170 RETURN 
200 SOUND 0,937,14,8 
5210 FOR F=0 TO 100:NEXT F 
S220 SOUND 1,72, 14,7 
52530 FOR F=0 TO ZO0O:NEXT PR 
3240 SOUND 2, 145, 14,5 
S250 FOR F=0 TO 1503NEXT F 
Zz60n SOUND 5,46, 14, 10 
5270 FOR F=0 TO &OO:NEXT F 
5280 FÜR G6=0 TO 5:50UND G,0,0,0:NEXT G 
3230 RETURN 
10: Ich eröffne einen Datenkanal zur Tastatur, 
20: lese den ATASCII-Wert der gedrückten Taste in T ein 
30: und schließe den Datenkanal wieder. 
40: Ich habe mich fürs erste mit den Tasten 1 (ATASCII 49) 
bis 4 (ATASCII 52) begnügt. Wenn eine andere Taste ge- 


drückt wird, als Programmierer muß man ja auf jeden Unfug 
vorbereitet sein, dann wird nach 10 zurückgeführt und auf 
die nächste Eingabe gewartet. 


50: Ist eine zugelassene Taste gedrückt worden, wird 
Wert jetzt mit 100 multipliziert und als Sprungadresse 
eine Subroutine verwendet 


ihr 
in 


60: schließt den Programmkreis. 


70: grenzt das Hauptprogramm gegen die Subroutinen ab, ist 
hier aber eigentlich nicht notwendig, weil durch den Rück- 
sprung in 60 diese Zeile gar nicht erreicht werden kann. 


4900: War Taste 49 gedrückt, wird hier ein Geräusch ange- 


stimmt, das bei 

4940: beendet wird. 

4950: RETURN-Rücksprung ins Hauptprogramm. 

5000 bis 5090: bei Taste 50. 

5100 bis 5170: bei Taste 51. 

5200 bis 5290: bei Taste 52. 

Erfinden Sie selbst weitere Geräusche und vollenden Sie das 


Geräuschklavier. Experimentieren Sie mit den Programmstruk- 
turen und staunen Sie über die Töne. 
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5 Appendix 


Programme 


5.1 Zahlenraten 
5.2 Malpinsel 
5.3 Farben-Schlüssel 


5.4 Bit-Muster 


Tabellen 


GRAPHICS 1 und 2, numerische Werte für COLOR 
Zeichensatz - ATASCII-Code - interner Code 


BASIC-Wörter mit Kurzerklärung und Seitenreferenz 
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5.1 Zahlenraten 


Dieses Programm hatte ich Ihnen in Abschnitt 4.1.1 als 
Hausaufgabe gestellt. Falls Sie die ausnahmsweise mal ge- 
macht haben sollten, bevor Sie nun hier nachschlagen, 
werden Sie feststellen, wie verschieden Programme aussehen 
können, die letztlich doch das gleiche leisten. Bei meiner 
Version können Sie eine Zahl zwischen 1 und 10.000 raten: 


10 ? CHR$S(125) 

20 R=INT (RND (0) #3939) +1 

50 ? "Bitte geben Sie Ihre Zahl eım" 

40 TRAF 200 

30 ? 

60 INPUT V 

70 IF V<R THEN ? :? "zu kleim" 

80 IF VR THEN ? :? "zu gross" 

90 IF VOR THEN Z=2+1:60T0 30 

100 ? =? "Richtig geraten" 

110 ? =? "Sie haben ";Z;3" Versuche gebraucht" 
120 ? "Vielen Dank!" 

150 END 
200 ? :? "Bitte" 

210 ? :? "geben Sie Ihre Zahl" 
220 ? =? "nur in Ziffern ein" 
250 GOTO 50 


10: Bildschirm löschen 


40: Die TRAP-Falle fängt das Programm auf, falls der User 
(natürlich nur, um uns zu foppen) Strings statt Ziffern 
eintippt. 


70 und 80: vergleichen die getippte Zahl V mit der Computer- 
zahl R. 


90: zählt in Z die Anzahl der Rateversuche und verzweigt 
nach 30, wenn die Lösung noch nicht gefunden wurde, denn 
sonst wird in 


100 bis 120: das Ergebnis ausgegeben. 


200 bis 230: Hierhin verzweigt TRAP, eine Ermahnung an den 
Benutzer. 
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5.2 Malpinsel 


Der Joystick als Pinsel. Wählen Sie mit dem Feuerknopf aus 
acht Farbtönen aus und bemalen Sie die Flimmerleinwand: 


100 
ı10 
LEO 
150 
140 
150 
160 
170 
180 
190 
200 
210 


SO0O 
510 
520 
530 
540 
Rtw1) 
5&0 
570 
4oo 
A410 
A4zOoO 


100: 
den 


110: 
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GRAFHICS 10 
C=1:X=59:Y=47 

FOKE 705,14 

FOKE 706, 250 

FOKE 707,40 

FOKE 708, SO 

POKE 709,82 

FOKE 710, 96 

POKE 711,160 

FOKE 712,2 

S=STICK (0) 
T=5TRIG (oO) 

IF T=0 THEN C=C+1 
IF C>8 THEN C=1 

IF (T=0) AND (5=15)=1 THEN GOSUB 400 
IF 5S=15 THEN 200 
IF S=7 THEN X=X+1 
IF X) 73 THEN X=7973 
IF S=11 THEN X=X-1 
IF X<0 THEN X=0 

IF S=153 THEN Y=Y+il 
IF Y)J&47 THEN Y=47 
IF S=14 THEN Y=Y-i 
IF Y<(O THEN Y=0O 
COLOR C 

FLOT X, Yx4 

DRAWTO X, Y*4+53 
SOTO Z00 

FOR P=0 TO 50 
NEXT P 

RETURN 


erlaubt acht Farbtöne für Grafikpunkte und einen für 
Hintergrund. 


C bestimmt später die Farbe. X und Y sind die Start- 


koordinaten des Pinsels. 


120 bis 190: definieren die acht Farbtöne. Ich habe mich 
bemüht, aus den 128 aufrufbaren Farbwerten die Töne heraus- 
zufischen, die den Grundfarben und Mischfarben erster 
Ordnung (Farbenlehre nach Itten) möglichst nahekommen. 
Hinzu kommen noch Weiß und Mittelgrau. Der Hintergrund ist 
(bleibt) Schwarz. Die Farbwirkung ist von der Einstellung 
ihres Bildschirms abhängig. 


230: Wenn Sie C auf O statt auf 1 zurücksetzen, können Sie 
auch die Hintergrundfarbe in den "Pinsel" nehmen und damit 
Bildschirmteile löschen. 


235: Wenn der Feuerknopf gedrückt wird, um die Farbe zu 
wechseln, während der Pinsel in Ruhestellung ist, wird in 
ein Unterprogramm nach 400 gesprungen. Die Farben wechseln 
sonst so schnell, daß man gar nicht richtig wählen kann. 
Wenn der Pinsel in Bewegung ist, soll ein schneller Wechsel 
möglich sein. Das gibt einen schönen Regenbogeneffekt! 


350: Die Bildauflösung in dieser Betriebsart bewirkt längliche 
Grafikpunkte. Um das auszugleichen, wird jeder Grafikpunkt 
in Y-Richtung über vier Bildschirmzeilen gezogen. Es wird 
also nur in jede vierte Zeile (Y*4) gePLOTtet und der 
Grafikpunkt über vier Zeilen gezogen (Y*4+3). So erhalten 
wir quadratische Ausgaben, die vier Bildpunkte breit und 
vier Fernsehzeilen hoch sind. 


Die Zeilen 260 bis 330 lassen sich, wem sage ich das, auch 
platz-, speicher- und arbeitsschonender schreiben. (Boole, 
oh Boole!): 


260 REM FLATZ GESPART 

270 REM FLATZ GESPART 

280 X=X+rt(X<79) AND (5=7)) 

290 X=X-((X)0) AND \5=112)) 

300 Y=Y+rt(Yk47) AND (5=15)) 
510 Y=Y-((YOo) AND (5=14)) 

320 REM FLATZ GESFART 

330 REM PLATZ GESFART 
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5.3 Farben-Schlüssel 


Dies ist ein nützliches Programm (Denglisch: Utility). Über 
das Keyboard können Sie vier Farbtöne beliebig einstellen 
und am Bildschirm die Wirkung gleichzeitig beobachten. Wenn 
Sie eine passende Farbkombination eingestellt haben, liefert 
Ihnen der Rechner auf Tastendruck P wie POKE die Zahlen- 
werte, die Sie in die Farbregister schreiben müssen. 


Das Programm bezieht sich auf die Grafikgänge 3 bis 7. Wo 
nur zwei Farben zur Verfügung stehen, müssen Sie die 
Register 709 und 710 unberücksichtigt lassen. Stellen Sie 
nur einen Farbton für den Hintergrund und alle drei Farb- 
töne im Grafikfenster gleich ein, um die richtige Wirkung zu 
bekommen. 


Wenn Sie Farben ausgewählt und die POKE-Werte notiert 
haben, können Sie mit START wieder in die Grafik gehen. 


00 GRAFHICS 18:FOKE 752, 1:FOKE 712,0:F0OSITION 6,4 
110.7? #6: '"CO10OrKEy'":FOR Z=D TO SOO:NEXT Z 

120 GRAFHICS O:PORE 752, 1:FOkKE 712, 16:POKE 710,18 
25 FOKE 709, 8:F0OSITION 1,0 

150 ? "Mit diesem Frogramm lassen sich Farben" 

140 FOSITION 6,2:? "durch Tastendruck einstellen! 
150 POSITION &,4:? "und gleichzeitig dıe Wirkung" 
160 FOSITION 5,6:? "auf dem Bildschirm beobachten. !" 
170 FOSITION 1,10 

175 ? "Tasten 1 2 3 4 vegein den Farbton" 

180 FOSITION 0,12 

185 ? "Tasten A W E R die Helligkeit dazw" 

130 FOSITION 5,15:? "Taste F ruft die FÜRE-Werte ab" 

200 POSITION 12,19:? "Weiter mit START" 

210 FOSITION 4, 22:7? "tc) 1984 Clausthalt-Zellerfeld" 

220 FOSITION 11,25:? "boy Karl-Heinz Koch'!';s 

z50 IF FPEER (55279) =6 THEN 250 

=40 GOTO 2350 

50 GRAFHICS S:POKE 752, 15 POKE 712, 4:FPOKE 708,6 
260 FOKE 709, ZFOKE 710, 8:50=0:151=0:52=D:53=0 

79 7" Farbton 1 2 5 a" 

280 ? 7" Helligkeit Ü W ER": 

2930 COLOR 1:FL0OT 19, 6:DRAWTO 19,0:DRAWTOD 0,0 
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300 
„10 
520 
50 
54n 
530 
560 
6748 
575 
>80 
AuDO 
A410 
4=20 
450 
WIE) 
450 
460 
470 
480 
430 
SO 
S1O 
320 
350 
Su40 
ISO 


II 


560 
565 
570 
580 
330 
BOO 
&10 
BEO 
625 
630 
40 
650 
660 
670 
680 


FOSITION 0O,6:FOkKE 765, 1:XI0 18,46,0,0, "58" 
COLOR 1:FL0T 19, 18:DRAWTO 19, 12:DRAWTN O,12 
POSITION 0, 18:FOkKE 765,1:X1I0 186,#6,0,0, "58" 
COLOR Z:PLOT 39,6&:DRAWTO 39, ÖSDRAWTO 20,0 
FOSITION 20,6:FOkKE 765, ZIXI0O 18, #6,0,0, "5:8" 
COLOR Z:FPLOT 39, 18:DRAWTO 39, 1E:DRAWTO 20,12 
POSITION zZ0, 18:FOkKE 765, 2°XI0 18,#6,0,0,'8:" 
COLOR 3°FL0T 39, 11:DRAWTO 39, 7:DRAWTO 0,7 
FOSITION O0, 11:POKE 765,3:X10 18,#6,0,0,"9:" 
OFEN #1,4,0,'"K:2":GET #1,T 

IF T=43 THEN CO=CO+1:IF CO)15 THEN CO=oO 

IF T=50 THEN Ci=Ciri:IFf CııS THEN Ci1=0 

IF T=51 THEN CH=CH+l:IF CH1S THEN CH=O 

IF T=52 THEN C3=C3+1:1IF CH$15 THEN C3=0 

IF T=81 THEN HO=HO+rZ2: IF HO> 14 THEN HO=o 

IF T=87 THEN Hi=Hi+Z: IF Hi)i1da THEN Hi=0 

IF T=69 THEN HZ=HE+Z: IF HE 1A THEN HE=O 

IF T=82 THEN H3=H3+Z: IF Ha 1a TIAEN H3=0O 

IF T=80 THEN CLOSE #1:G60T70 3409 
SO=CO*#1&6+HO:FOKE 712,50 

S1=C1*16+HL1:FORE 708,51 

S2=CZE#16+HE:FOKE 709,52 

SI=CSHl1E+H3:PFOKE 710,55 

CLOSE #1:60T70 380 

GRAPHICS D:FOKRE 752, 1:POKE 712, 16&:FOkKE 709,8 
FOKE 710, 18:PFOSITION 10,5 

Dur ee 

FOSITION 2,5 

? "Die FOÖKE-Werte zu den Farbregistern:®" 
POSITION 7,3:? "Hintergrundfarbe Color ©" 
FOSITION 15,10:? "POKE 712, "150 


FOSITION 7,1253? "Grafikpunkt Color 1" 
POSITION 15,13:? "FOKE 708, ",51 

FOSITION 7,15:? "Grafikpunkt Color zZ" 
FOSITION 2,16 


? "und Schrifthelligkeit im Textfenster" 
FOSITION 15,17:? "FOKE 709, "+58 

FOSITION 7,19:? "Grafikpunkt Color 5" 
POSITION 7,20:? "und Farbton im Textfenster" 
POSITION 15,21:? "POKE 710,":535 

IF FEEK (532739)=6 THEN GOTO 250 

GOTD 670 


100 bis 240: Vorspann mit Bedienungsanleitung. 


250 und 260: Schlichte Grautöne als Anfangsfarben, 
Variablen für die Farbwerte werden auf O0 gesetzt. Wenn Sie 
diesen Befehl herausnehmen, bleiben die zuletztgewählten 


vier 
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Farbwerte erhalten. Wenn Sie am Ende des Programms, nach 
Ausgabe der POKE-Werte, die START-Taste drücken, dann er- 
scheint zuerst wieder das graue Grafikbild. Wenn Sie aber 
irgendeine Taste drücken, erscheinen sofort Ihre alten Farb- 
töne auf der Mattscheibe. 


270 und 280: zeigen im Textfenster an, welche Tasten zu 
drücken sind. 


290 bis 375: malen das Testbild. 
380: fragt die Tastatur ab. 


400 bis 480: verändert je nach Tastendruck verschiedene 
Variablen für Farbtöne und Helligkeiten. 


490 bis 520: errechnen aus diesen Variablen die POKE-Werte. 
530: führt zur erneuten Abfrage der Tastatur zurück. 


540: Taste P wurde gedrückt. GRAPHICS O löscht das Test- 
bild, alle POKEs müssen erneuert werden. 


550 bis 660: bauen die Schautafel mit den POKE-Werten auf. 
670 und 680: warten, daß START gedrückt wird. 
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5.4 Bit-Muster 


Mit diesem Programm können Sie sich in der Vergrößerung 
ansehen, wie die Zeichen aus dem ATARI-Zeichensatz aus 
einzelnen Punkten zusammengesetzt sind. Sie brauchen nur 
eine beliebige Taste zu drücken und schon erscheint das zu- 
gehörige Zeichen auf Grafik-3-Punkte vergrößert auf dem 
Bildschirm. Nur die übermächtige BREAK-Taste entzieht sich 
dem Anblick. Aber DELETE, ESC, TAB, CURSOR etc, können 
Sie sich ansehen: 


10 GRAFHICS 13:DIM Fi7,ND:PORE 769, Z23PF0ORE 712,0 
20 FOKE 710, 0:FOKE 709, 50:FOKE 708,248 

50 COLOR Z:FLOT 15, 23:DRAWTO 15, 0:DRAWTO 0,0 

4) FOSITION 0,25:XI0 18,#6,0,0, "953" 

„O0 COLOR Z:FLOT 39, 23:DRAWTO 39, D:DRAWTO za,0 

60 FOSITION 24,25:X1I0 18, #6,0,0, "5:3" 

70 COLOR 2:FPLOT 25, 7:DRAWTO 25, 0:DRAWTO 16,0 

80 FOSITION 16, 7:XIO 18,#36,0,0, "5:" 

20 COLOR Z:FPLOT 25, 25:DRAWTO 235, 16:DRAWTO 16,16 
100 FOSITION 16, 25:XI0 18,#6,0,0,'"5*" 

110 FOKE 765, 53:C0OLOR 3:FLOT 25, 15:DRAWUTO 23,8 

120 DRAWTO 16,8:FOSITION 16,15:XI0O 18,86,0,0,'"9:" 
=00 FOR I=0 TO 7:FOR J=0 TO 75F<tI, D=3:NEXT JSNEXT I 
z10 OFEN #1,4,0,'K:" 

=E2E0O GET #1,Z 

250 CLOSE #i 

240 IF Zt{128 THEN FOKE 710,0:POKE 708, 248 

50 IF 2127 THEN Z=Z-128:F0OKE 710, 248:POKE 708,0 
zb IF Z(32 THEN Z=2+r64:6070 510 

=70 IF Z<96 THEN Z=7-32:G60T0 510 

80 IF Z<(128 THEN 310 

510 FOR I=0 TO 7 

>20 A=FEERN(ST7SAAuA+TI+2%*B8) 

550 IF A127 THEN A=A-128:F(0,D=1 

San IF M6&63 THEN A=sA-64:F(1, Del 

550 IF ®51 THEN A=sA-Szırf(z, D=1 

360 IF A155 THEN AsA-1I6:F(3, Dei 

s70 IF MP7 THEN A=A-8:F(4,1D)=1 

580 IF MS THEN A=sA-a:srF(5,I)-l 

>30 IF M1 THEN A=sA-ZIF(6, D=i 
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LITER 
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108 
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| 48 
102 


70 
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1864 2168 4 4 2 ı 

255 
153 
153 
195 
231 
231 
231 


255 





4ö0 IF mo THEN F(7,D=1 

410 NEXT I 

4z0 FOR J=0 TO 7 

430 FOR I=0 TO 7 

Aao COLOR F(i1l,TD)I:PLOT I+i6, J+B 
450 NEXT I 

A&O NEXT J 

SsO0 GOTO 200 


10: In die Variable F sollen die acht mal acht Bildpunkte 
gefüllt werden, aus denen sich jedes einzelne Zeichen zu- 
sammensetzt. 


30 bis 120: bauen eine Grafik auf den Bildschirm. 
210 bis 230: fragen die Tastatur ab. 


240 bis 280: Die ATASCII-Werte ordnen alle verfügbaren Zei- 
chen in eine Reihe von O0 bis 127 (128 bis 255 sind die 
gleichen Zeichen nur in negativer Darstellung). Der durch 
unseren Tastendruck verursachte (ATASCII-) Wert muß umge- 
rechnet werden, weil die Zeichen in einer anderen Reihen- 
folge (Offspring) im Speicher aufgehoben werden. Das ist 
der interne Code. Fragen Sie bitte nicht mich, warum das 
so ist. 


Die Daten des Zeichensatzes liegen im ROM-Bereich des Spei- 
chers (Read Only Memory, ein Speicherbereich, aus dem man 
nur lesen (PEEK), in den hinein man aber nicht POKEn 
kann). Jedes Zeichen besteht aus acht Byte, jedes Byte ent- 
hält ein Bit-Muster, das in acht Bildpunkte umgesetzt wird. 
Der Zeichenspeicher beginnt bei der Adresse 57344. Dort 
liegt das erste Byte des ersten Zeichens. 


310: Die acht Byte eines Zeichens werden einzeln gelesen. 


320: A übernimmt den Dezimalwert aus der entsprechenden 
Adresse, die sich aus Startadresse (57344), dem Byte inner- 
halb des Zeichens (I) und dem Offspring des Zeichens (Z*8) 
zusammensetzt. 


330 bis 400: brechen den Dezimalwert des Byte in die Werte 
der acht Bits auf und ordnen die Bit-Werte in die doppelt 
indizierte Variable F. 


410: Wenn das mit acht Bytes gemacht ist, dann befinden 
sich in der Variable F die acht mal acht Bit, die in Bild- 
punkte umgesetzt das Zeichen auf die Mattscheibe befördern. 


420 bis 460: PLOTten die acht mal acht Bits in ihrer jewei- 
ligen Farbe (0 oder 1) auf den Bildschirm. 
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Auf ein Wort noch zu Zeile 250. Der Zeichensatz besteht nur 
aus 128 (0 bis 127) Zeichen, im Speicher liegen also nur 
128 mal 8 Dezimalwerte in entsprechend vielen Adressen. Die 
zweite Hälfte des Zeichensatzes besteht aus den gleichen 
Zeichen in inverser (negativer) Darstellung. Da müssen 
nicht noch einmal Daten gespeichert werden, die indirekt 
schon verfügbar sind. Computer-Techniker sind (speicher-) 
sparsame Leute. 


Wenn als Tastatureingabe ein Wert gefunden wird, der größer 
als 127 ist, dann haben wir es mit einem negativen Zeichen 
zu tun. Wir ziehen den Wert 128 ab, um an den positiven 
Zwilling heranzukommen. Damit aber die Ausgabe auf dem 
Bildschirm in unserem Programm auch negativ aussieht, 
vertauschen wir die Farbwerte für Grafikpunkt und Hinter- 
grund und das Zeichen wird negativ erscheinen. 


Weil ein einmal gePOKEter Wert nicht so intelligent ist, 
selbst zu merken, wann er nicht mehr erwünscht ist, müssen 
wir in Zeile 240 dafür sorgen, daß die normale Zuordnung 
von Grafik und Hintergrundfarbe hergestellt wird, wenn das 
aufgerufene Zeichen aus der ersten Hälfte des Zeichensates 
(kleiner 128) stammt, klar doch. 
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Die Werte n von OD bis 255 bewirken in GR.1I und GR.2 als 
Befehl COLOR n das Zeichen in der entsprechenden Zeile 
und beziehen ihren Farbwert aus dem Register der ent- 
sprechenden Spalte. Die Werte 125 und 155 bewirken keine 
Ausgabe von Zeichen. Die Zeichen in der 2. Spalte können 
nur nach POKE 756,226 aufgerufen werden. POKE 756, 224 
(Grundwert) stellt auf den 1, Teil zurück. 
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ABS 


ADR 


AND 
ASC 


ATN 
BYE 
CHR$ 


CLOAD 
CLOG 


CLOSE 
CLR 
COLOR 


COM 
CONT 
cos 
CSAVE 
DATA 
DEG 
DIM 


DOS 
DRAWTO 


END 
ENTER 
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ABS(n) findet den absoluten Wert von n (entfernt 
das Minuszeichen) (198) 


ADR(n$) ermittelt die Speicheradresse in der n$ 
beginnt 


Boolescher Operator (129f) 


ASC(n$) oder ASC('"'n") ermittelt den ATASCII-Wert 
von n$ oder das erste Zeichen aus "n! (100) 


ATN(n) errechnet den Arcustangens 
(B.) / zum Verlassen von BASIC 


CHR$(n) ermittelt das ATASCII-Zeichen mit dem 
Wert n (42, 95, 100f) 


(CLOA.) / Laden eines Programms von Cassette 


CLOG(n) berechnet den dekadischen Logarithmus 
von n 


(CL.) / CLOSE#n schließt den Datenkanal n (159) 
CLR zum löschen aller Variablen (22) 


(C.) oder (CO.) / COLOR n ruft einen Farbton 
auf, der im zugeordneten Farbregister definiert 
ist (97) 


wie DIM 

(CON.) setzt ein unterbrochenes Programm fort 
COS(n) errechnet den Cosinus von n (146ff) 

(CS.) / zum Speichern eines Programms auf Cassette 
(D.) / markiert eine Datenzeile (216f) 

(DE.) / schaltet auf Grad (147) 


(DI.) / DIM v(n) / DIM v(n,m) / DIM v$(n) re- 
serviert Speicherplatz für indizierte Variablen 
(18f, 20ff) 


(DO.) / ruft das Diskettenbetriebssystem auf 


(DR.) / DRAWTO n,m zieht eine Linie von einer 
zuvor gePLOTteten Stelle x,y zu der definierten 
Position n,m (48) 


beendet das Programm 


(E.) / ENTER'"K:filename.ext" liest das Programm 
filespec.ext von der Peripherie '"k:'" (14) 


EXP 


FOR 


FRE 


GET 


GOSUB 


GOTO 


GRAPHICS 


IF 
INPUT 


INT 
LEN 


LET 


LIST 


LOAD 


LOCATE 


LOG 
LPRINT 


EXP(n) berechnet die Potenz zur Zahl e, die n 
ergibt. 


(F.) / FOR v=n (TO m STEP p) bestimmt den An- 
fangswert der Variablen v als Schleifenzähler 
(33f, 123) 


FRE(0) stellt den freien Speicherplatz fest (11) 


(GE.) / GET#n,v liest aus dem Datenkanal n ein 
Byte in die Variable v 


(GOS.) / GOSUB n springt in das Unterprogramm, 
das bei Zeile n beginnt (30f) 


(G.) / GOTO n stetzt das Programm bei Zeile n 
fort (17, 28f) 


(GR.) / GRAPHICS n ruft eine Grafikbetriebsart n 
(0 bis 15) auf, n+16 ohne Textfenster, n+32 ohne 
Bildschirmlöschen, n+48 ohne Textfenster und 
Bildschirmlöschen (36, 64ff) 


IF (Bedingung), bedingte Anweisung (THEN) (32f) 


(1.) / INPUT n oder INPUT n$ weist der Variab- 
len n oder n$ eine Benutzer-Eingabe zu 


INT(n) rundet n, Dezimalstellen fallen weg (15, 99) 


LEN(n$) stellt die Anzahl der Zeichen von n$ 
fest (26) 


(LE.) / LET v=n oder LET v$="n!" weist einer 
Variablen einen Wert zu (16ff) 


(L.) / LIST oder LIST"k:filename.ext"schreibt das 
Programm filename.ext an die Peripherie '"k:". Zur 
Ausgabe auf den Bildschirm nur LIST. LIST oder 
LIST n oder LIST n,m schreibt das ganze Pro- 
gramm, schreibt nur die Zeile n, schreibt von 
Zeile n bis m. Auch: LIST "k:filename.ext'in,m 
(14, 24, 52ff, 104) 


(LO.) / LOAD"k:filesname.ext" lädtein Programm 
von der Peripherie 'k:'" in den Computer 


(LOC.) / LOCATE m,n,v findet an der Position n,m 
des Bildschirms einen ATASCII-Wert oder COLOR- 
Wert und liest ihn in v (123f) 


LOG(n) findet den natürlichen Logarithmus von n 


(LP.) / LPRINT "n" oder LPRINT CHR$(n) gibt '"n" 
oder CHR$(n) an den Drucker aus 
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NEW 
NEXT 


NOT 
NOTE 


ON 


OPEN 


OR 


PADDLE 


PEEK 
PLOT 


POINT 


POKE 


POP 


POSITION 


PRINT 


PTRIG 


PUT 


RAD 
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löscht ein Programm im Computer 


(N.) / NEXT v überwacht den Schleifenzähler v 
(33f, 123) 


Boolescher Operator (129f) 


(NO.) / NOTE#n,s,b notiert über den Datenkanal 
n den Sektor s und das Byte b von dem ab das 
nächste Byte auf die Diskette geschrieben oder 
gelesen wird 


ON (Bedingung) definiert eine Bedingung für den 
GOTO- oder GOSUB-Sprung. ON n bestimmt als 
Sprungziel für GOTO oder GOSUB die n-te angege- 
bebe Zeilennummer (28f, 30f) 


(0.) / OPEN#n,p,q,"k:filename.ext" eröffnet den 
Datenkanal n mit der Betriebsart p und der 
Kennzahl q zur Peripherie '"k:" (159) 


Boolescher Operator (129f) 


PADDLE(n) stellt die Stellung des Drehreglers n 
(0 bis 7) fest 


PEEK(n) liest den Inhalt der Speicherzelle n (23) 


(PL.) / PLOT n,m zeichnet einen Punkt nach n,m 
(47F) 

(P.) / POINT#n,s,b bestimmt, das über den Da- 
tenkanal n im Sektor s das Byte b der Diskette 
gelesen oder beschrieben wird 


(POK.) / POKE n,m schreibt in die Speicherzelle 
n den Wert m (23, 37) 


zum Verlassen eines Unterprogramms ohne RETURN 
(31) 

(POS.) / POSITION n,m stellt den unsichtbaren 
Cursor auf die Bildschirmstelle n,m (43ff, 47) 


(PR.)oder(?) / PRINT n oder PRINT n$ oder PRINT 
"In" gibt n, n$ oder "n" an den Bildschirm aus. 
Ein Datenkanal kann bestimmt werden: PRINT=n 
(16, 17, 24, 47) 

PTRIG(n) stellt fest, ob der Druckknopf am Dreh- 
regler n (0 bis?) gedrückt ist 


(Pu.) / PUT#n,m gibt über den Datenkanal n den 
Wert m an die Diskette aus 


schaltet auf Bogenmaß um (147) 


READ 
REM 
RESTORE 
RETURN 
RND 
RUN 
SAVE 
SETCOLOR 
SGN 

SIN 
SOUND 
SOR 
STATUS 
STEP 
STICK 
STRIG 


STOP 
STR$ 
THEN 


TO 


(REA.) / READ n oder READ n$ liest aus DATA- 
Zeilen in n oder n$ (216f) 


(R.)oder(. ) nachfolgende Zeichen bis zum Ende 
der Zeile werden vom Computer nicht bearbeitet 


(RES.) / setzt den READ-DATA-Zeiger auf die erste 
oder mit RESTORE n auf die n-te DATA-Zeile (217) 


(RET.) / führt aus einem Unterprogramm an die 
Stelle, wo das Hauptprogramm verlassen wurde 


RND(n) findet einen zufälligen Wert von gleich O 
bis kleiner 1 unabhängig von n (99) 


(RU.) / beginnt die Abarbeitung eines Programms 
(16) 


(S.) / SAVE"kKk:filename.ext" speichert das Pro- 
gramm filename.ext auf die Periherie 'k:'! 


(SE.) / SETCOLOR r,f,h definiert für das Farbre- 
gister r den Farbwert f*16+h (37f) 


SGN(n) findet das Signum von n in der Form 1, 
0 oder -1 (198) 


SIN(n) berechnet den Sinus von n (146ff) 


(S0.) / SOUND r,t,k,v setzt in den Tongenerator 
r die Tonhöhe t mit der Verzerrung k und der 


Lautstärke v (212ff) 
SQAR(n) berechnet die Quadratwurzel von n 


(ST.) / STATUS#n,m liest über den Datenkanal n 
die Kennziffer des aufgetretenen Fehlers in m ein 


STEP p bestimmt für den Schleifenzähler einer 
FOR-NEXT-Schleife die Schrittweite p (34) 


STICK(n) stellt die Stellung des Steuerknüppels n 
(0 bis 3) fest (160ff) 


STRIG(n) stellt fest ob der Feuerknopf am Steuer- 
knüppel n gedrückt ist (160ff) 


programmierte Programmunterbrechung 
STR$(n) wandelt die Zahl n in den String"n"um 


THEN (Kommando) bestimmt, was nach der Bedin- 
gung (IF) geschehen soll. Das Kommando kann 
eine Zeilennummer (ohne GOTO) sein (32) 


TO n bestimmt den Endwert des Schleifenzählers, 
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dessen Anfangswert mit FOR v=n definiert wurde 
(33f, 123) 


TRAP (T.) / TRAP n bestimmt die Zeile n, zu der nach 
Auftreten eines Fehlers gesprungen werden soll, 
statt das Programm mit einer Fehlermeldung zu 
unterbrechen (89, 216f) 


USR USR(n) ruft ein in Maschinensprache geschriebe- 
nes Unterprogramm auf, das mit Speicherzelle n 
beginnt 

VAL VAL(n$) macht aus der ersten Ziffer, die in n$ 


enthalten ist einen numerischen Wert 


x10 (X.) / XI0 n,%*m,p,q,"k:filename.ext'" ermöglicht 
Ein- und Ausgabeoperationen. n bestimmt die Art 
der Operation, m den Datenkanal, p die Betriebs- 
Dr q die Kennzahl und "k:'" die Peripherie 
50f) 


Operationen, bei denen ein Gerätekennzeichen ('"k:'") angege- 
ben werden muß, verlangen nur die Angabe des Dateinamens 
(filename.ext), wenn die Peripherie in der Lage ist, verschie- 
dene Dateien zu verwalten (z.B. die Diskettenstation). Bei 
den übrigen Peripherien (Cassettenrecorder, Grafikfenster) 
kann der Dateiname fortgelassen werden. 
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